* maxlongint -> 1000 ;)

tests/tbs0207.pp

@@ -3,6 +3,6 @@
  var i : longint;
 
 begin
-   for i:=1 to maxlongint do 
+   for i:=1 to 100 do
      tobject.create.free;
 end.