* WaitFor modified to call CheckSynchronize - to be tested with 3695

git-svn-id: trunk@1671 -

rtl/os2/tthread.inc

@@ -230,6 +230,9 @@ function TThread.WaitFor: Integer;
 var
  FH: cardinal;
 begin
+ if GetCurrentThreadID = MainThreadID then
+  while not (FFinished) do
+   CheckSynchronize (1000);
  WaitFor := DosWaitThread (FH, dtWait);
 end;