diff --git a/tests/webtbs/tw2739.pp b/tests/webtbs/tw2739.pp
index aad6c8c698..d9db2bbc74 100644
--- a/tests/webtbs/tw2739.pp
+++ b/tests/webtbs/tw2739.pp
@@ -1,4 +1,5 @@
 {$mode Delphi}
+unit tw2739;
 
 interface
 
@@ -24,10 +25,12 @@ end;
 
 
 function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
-
+var
+  p : pointer;
 begin
+  p:=@NotifyMethod;
 end;
 
 
 begin
-end.
\ No newline at end of file
+end.