Index: src/groffstudio.lpi
==================================================================
--- src/groffstudio.lpi
+++ src/groffstudio.lpi
@@ -21,11 +21,11 @@
     </General>
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="14"/>
-      <BuildNr Value="2"/>
+      <BuildNr Value="3"/>
       <StringTable ProductName="groffstudio"/>
     </VersionInfo>
     <BuildModes>
       <Item Name="Default" Default="True"/>
     </BuildModes>

Index: src/unit1.pas
==================================================================
--- src/unit1.pas
+++ src/unit1.pas
@@ -414,14 +414,10 @@
   // - Log file:
   if chkLogFile.Checked then logFileName := currentGroffFilePath + '.log';
 
   // Build:
   buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
-  if buildSuccess then
-    MainStatusBar.Panels[1].Text := 'build successful'
-  else
-    MainStatusBar.Panels[1].Text := 'build problem';
 
   {$IFDEF WINDOWS}
   if buildSuccess and hasGhostscript and rdPdf.Checked then
   begin
     // Invoke ps2pdf:
@@ -428,19 +424,19 @@
     buildOpts := 'ps2pdf';
     // outputFileName is still the .ps file. Just use it as the input name.
     buildOpts := buildOpts + ' ' + outputFileName;
     buildSuccess := BuildWindow.BuildDocument(buildOpts, logFileName);
     if buildSuccess then
-    begin
-      MainStatusBar.Panels[1].Text := 'build successful';
-      DeleteFile(outputFileName); // get rid of the .ps file
-    end
-    else
-      MainStatusBar.Panels[1].Text := 'build problem';
+       DeleteFile(outputFileName); // get rid of the .ps file
   end;
   {$ENDIF}
 
+  if buildSuccess then
+    MainStatusBar.Panels[1].Text := 'build successful'
+  else
+    MainStatusBar.Panels[1].Text := 'build problem';
+
   FreeAndNil(BuildWindow);
 end;
 
 procedure TMainForm.btnLoadGroffClick(Sender: TObject);
 var