diff --git a/tests/webtbs/tw2739.pp b/tests/webtbs/tw2739.pp
new file mode 100644
index 0000000000..aad6c8c698
--- /dev/null
+++ b/tests/webtbs/tw2739.pp
@@ -0,0 +1,33 @@
+{$mode Delphi}
+
+interface
+
+
+
+type
+  TJclExceptNotifyProc = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
+  TJclExceptNotifyMethod = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean) of object;
+
+
+
+function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
+function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
+
+
+implementation
+
+function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
+
+begin
+end;
+
+
+
+function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
+
+begin
+end;
+
+
+begin
+end.
\ No newline at end of file