diff --git a/ide/lazarusmanager.pas b/ide/lazarusmanager.pas
index 3178979f96..174a89fcd2 100644
--- a/ide/lazarusmanager.pas
+++ b/ide/lazarusmanager.pas
@@ -167,7 +167,10 @@ procedure TLazarusManager.WaitForLazarus;
     ProcessHandle: THandle;
   begin
     ProcessHandle := OpenProcess(SYNCHRONIZE, false, PID);
-    WaitForSingleObject(ProcessHandle, INFINITE);
+    if ProcessHandle<>HWND(nil) then begin
+      WaitForSingleObject(ProcessHandle, INFINITE) of
+      CloseHandle(ProcessHandle);
+    end;
   end;
   {$ELSE}
   {$IFDEF UNIX}
@@ -258,6 +261,9 @@ end;
 end.
 {
   $Log$
+  Revision 1.11  2004/11/19 12:23:43  vincents
+  fixed WaitForLazarus: close process handle after use.
+
   Revision 1.10  2004/11/06 11:29:24  vincents
   Changes due to the new fpc unit directory structure.
 
diff --git a/ide/main.pp b/ide/main.pp
index d5bbed0d68..a0bf5b945a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -3935,7 +3935,7 @@ begin
                                                             AncestorType,true));
       if CInterface=nil then begin
         // error streaming component -> examine lfm file
-        writeln('ERROR: streaming failed lfm="',LFMBuf.Filename,'"');
+        DebugLn('ERROR: streaming failed lfm="',LFMBuf.Filename,'"');
         NewComponent:=nil;
         AnUnitInfo.Component:=NewComponent;
         // open lfm file in editor
@@ -10974,6 +10974,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.793  2004/11/19 12:23:43  vincents
+  fixed WaitForLazarus: close process handle after use.
+
   Revision 1.792  2004/11/18 16:01:14  vincents
   replaced writeln by DebugLn