diff --git a/.gitattributes b/.gitattributes
index a4ccacf2ad..7df9a6a000 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14739,6 +14739,7 @@ tests/webtbf/tw3395.pp svneol=native#text/plain
 tests/webtbf/tw3395a.pp svneol=native#text/plain
 tests/webtbf/tw34355.pp svneol=native#text/pascal
 tests/webtbf/tw3450.pp svneol=native#text/plain
+tests/webtbf/tw34691.pp svneol=native#text/pascal
 tests/webtbf/tw3473.pp svneol=native#text/plain
 tests/webtbf/tw3480.pp svneol=native#text/plain
 tests/webtbf/tw3480a.pp svneol=native#text/plain
diff --git a/tests/webtbf/tw34691.pp b/tests/webtbf/tw34691.pp
new file mode 100644
index 0000000000..f2f28aa3c8
--- /dev/null
+++ b/tests/webtbf/tw34691.pp
@@ -0,0 +1,28 @@
+{ %FAIL }
+
+unit tw34691;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  TObjA = class
+    Icon: String;
+  end;
+
+  {$M+}
+  TObjB = class
+    FObjA: TObjA;
+
+  published
+    property Icon: String read FObjA.Icon;
+  end;
+
+implementation
+
+end.
+