diff --git a/tests/webtbs/tw35878.pp b/tests/webtbs/tw35878.pp
index 4ef1acfa18..17f435d64f 100644
--- a/tests/webtbs/tw35878.pp
+++ b/tests/webtbs/tw35878.pp
@@ -4,8 +4,8 @@ program random_test;
 const
    l: UInt64 = 6148914691236517205;
 var
-   s,n: UInt64;
-   i,j: UInt64;
+   s,n: UInt32;
+   i,j: UInt32;
 begin
   WriteLn('Experiment:', LineEnding);
   WriteLn(' Draw a natural number r from the intervall [0,l-1] and');
@@ -18,7 +18,7 @@ begin
   l := 6148914691236517205;
   for j := 4 to 18 do
   begin
-    n := (Int64(1) shl j);
+    n := (Int32(1) shl j);
     s := 0;
     for i := 0 to n-1 do
       if Random(Int64(l)) < l div 2 then
diff --git a/tests/webtbs/tw35878a.pp b/tests/webtbs/tw35878a.pp
index 6e657d7f20..53bab4f5d4 100644
--- a/tests/webtbs/tw35878a.pp
+++ b/tests/webtbs/tw35878a.pp
@@ -1,5 +1,6 @@
 var
-  i, rand, val: int64;
+  rand, val: int64;
+  i: int32;
 begin
   rand:=-5;
   for i:=1 to 10000 do