diff --git a/tests/tbs/tbs0084.pp b/tests/tbs/tbs0084.pp
index ed1848fc1f..f2b3c00151 100644
--- a/tests/tbs/tbs0084.pp
+++ b/tests/tbs/tbs0084.pp
@@ -1,5 +1,7 @@
+{$R-}
 
 { Basic Pascal principles gone done the drain... !!!! }
+
 var
  v: word;
  w: shortint;
@@ -10,4 +12,4 @@ Begin
  z:=32767;
  w:=64000;
  v:=-1;
-end.
+end.
\ No newline at end of file
diff --git a/tests/tbs/tbs0106.pp b/tests/tbs/tbs0106.pp
index 9d2a26f93f..44b917ce2b 100644
--- a/tests/tbs/tbs0106.pp
+++ b/tests/tbs/tbs0106.pp
@@ -1,3 +1,4 @@
+{$R-}
 
 { I think this now occurs with most type casting... }
 { I think type casting is no longer considered??     }
@@ -8,4 +9,4 @@ Var
 Begin
  Sel:=word($7fffffff);
  Sel2:=byte($7fff);
-end.
+end.
\ No newline at end of file
diff --git a/tests/tbs/tbs0258.pp b/tests/tbs/tbs0258.pp
index d4f6b96947..5d3fd1cd6c 100644
--- a/tests/tbs/tbs0258.pp
+++ b/tests/tbs/tbs0258.pp
@@ -2,6 +2,7 @@ program test_set;
 
 uses erroru;
 
+{$R-}
 
 procedure test;
 
@@ -58,4 +59,4 @@ procedure test;
 
 begin
    test;
-end.
+end.
\ No newline at end of file
diff --git a/tests/tbs/tbs0290.pp b/tests/tbs/tbs0290.pp
index 351d701c10..4fe29726ac 100644
--- a/tests/tbs/tbs0290.pp
+++ b/tests/tbs/tbs0290.pp
@@ -1,3 +1,6 @@
+{ $R+ would give compile time errors }
+{$R-}
+
 Program bug0290;
 
 var i,j : integer;
@@ -19,4 +22,4 @@ begin
       Writeln('i and j are different !!!');
       Halt(1);
     end;
-end.
+end.
\ No newline at end of file