diff --git a/tests/webtbs/tw3695.pp b/tests/webtbs/tw3695.pp
index 7be4fb499b..cf511afcd9 100644
--- a/tests/webtbs/tw3695.pp
+++ b/tests/webtbs/tw3695.pp
@@ -64,11 +64,13 @@ begin
     //WriteLn('Loop forever inside Tester.run when compiled by FPC 1.9.8');
   end;
   thread.Terminate;
+  thread.waitfor;
 end;
 
 var
-    t: Tester;
+  t: Tester;
 begin
-    t := Tester.Create;
-    t.run;
+  t:=Tester.Create;
+  t.run;
+  t.free;
 end.