diff --git a/components/chmhelp/lhelp/lhelp.lpi b/components/chmhelp/lhelp/lhelp.lpi
index 597b1267e5..91e13c3cfb 100644
--- a/components/chmhelp/lhelp/lhelp.lpi
+++ b/components/chmhelp/lhelp/lhelp.lpi
@@ -153,10 +153,6 @@
       </Optimizations>
     </CodeGeneration>
     <Linking>
-      <Debugging>
-        <GenerateDebugInfo Value="False"/>
-        <DebugInfoType Value="dsStabs"/>
-      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>
diff --git a/components/chmhelp/packages/help/lhelpcontrol.pas b/components/chmhelp/packages/help/lhelpcontrol.pas
index 3c01d81630..c8f9786b9d 100644
--- a/components/chmhelp/packages/help/lhelpcontrol.pas
+++ b/components/chmhelp/packages/help/lhelpcontrol.pas
@@ -147,7 +147,7 @@ function TLHelpConnection.ServerRunning: Boolean;
 {$IFDEF STALE_PIPE_WORKAROUND}
 {$ENDIF}
 begin
-  Result := (fServerOut<>nil) and (fServerOut.Active);
+  Result := (fServerOut<>nil) and (fServerOut.ServerRunning);
   {$IFDEF STALE_PIPE_WORKAROUND}
   if not Result then
     Exit; // ==>