diff --git a/tests/tbs0105.pp b/tests/tbs0105.pp
index 54fb83717e..a9eccbe941 100644
--- a/tests/tbs0105.pp
+++ b/tests/tbs0105.pp
@@ -22,7 +22,7 @@ Var
  Sel: Word;
  v: longint;
 Begin
- Signal(SIGSEGV,signalhandler(our_sig));
+ Signal(SIGSEGV,signalhandler(@our_sig));
  v:=$00ffffff;
  Sel:=word(v);
  writeln(sel);
diff --git a/tests/tbs0249.pp b/tests/tbs0249.pp
index 302e9adf51..27fb532bfd 100644
--- a/tests/tbs0249.pp
+++ b/tests/tbs0249.pp
@@ -55,6 +55,6 @@ begin
   Dummy := TDummy.Create;
   Host := THost.Create;
   with Host,Dummy do
-    OnEvent := HandleEvent; // this is 57, 27 is ";"
+    OnEvent := @HandleEvent; // this is 57, 27 is ";"
   Host.Trigger;
 end.