diff --git a/tests/webtbs/tw1364.pp b/tests/webtbs/tw1364.pp
new file mode 100644
index 0000000000..3b9aeaf952
--- /dev/null
+++ b/tests/webtbs/tw1364.pp
@@ -0,0 +1,16 @@
+{$X-}
+
+type
+  o=object
+    constructor init(s:string);
+  end;
+
+constructor o.init(s:string);
+begin
+end;
+
+var
+  s:o;
+begin
+  s.init('test');
+end.
diff --git a/tests/webtbs/tw1376.pp b/tests/webtbs/tw1376.pp
new file mode 100644
index 0000000000..3e188eda28
--- /dev/null
+++ b/tests/webtbs/tw1376.pp
@@ -0,0 +1,13 @@
+unit tw1376;
+
+interface
+
+procedure mumble (x:integer); pascal;
+
+implementation
+
+procedure mumble (x:integer); pascal;
+begin
+end;
+
+end.