diff --git a/.gitattributes b/.gitattributes
index ff157a0bd0..1cad51e2d2 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7981,6 +7981,7 @@ tests/webtbs/tw10736.pp svneol=native#text/plain
 tests/webtbs/tw10753.pp svneol=native#text/plain
 tests/webtbs/tw10753a.pp svneol=native#text/plain
 tests/webtbs/tw10757.pp svneol=native#text/plain
+tests/webtbs/tw10768.pp svneol=native#text/plain
 tests/webtbs/tw10790.pp svneol=native#text/plain
 tests/webtbs/tw10800.pp svneol=native#text/plain
 tests/webtbs/tw10807.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw10768.pp b/tests/webtbs/tw10768.pp
new file mode 100644
index 0000000000..5607bafd12
--- /dev/null
+++ b/tests/webtbs/tw10768.pp
@@ -0,0 +1,19 @@
+
+{$ifdef fpc}{$mode delphi}{$endif}
+{$apptype console}
+uses classes;
+Type
+
+  _AppDomain = interface(IDispatch)
+                  end;
+  IJclClrAppDomain = _AppDomain;
+
+TJclClrAppDomain = class(TInterfacedobject, IJclClrAppDomain)
+  private
+    FDefaultInterface: IJclClrAppDomain;
+  protected
+    property DefaultInterface: IJclClrAppDomain read FDefaultInterface implements IJclClrAppDomain;
+  end;
+
+begin
+end.
\ No newline at end of file