diff --git a/.gitattributes b/.gitattributes
index 845ab6f158..32af30d5e1 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -10715,6 +10715,7 @@ tests/webtbs/tw17164.pp svneol=native#text/plain
 tests/webtbs/tw17180.pp svneol=native#text/plain
 tests/webtbs/tw17181.pp svneol=native#text/plain
 tests/webtbs/tw17184.pp svneol=native#text/pascal
+tests/webtbs/tw17193.pp svneol=native#text/pascal
 tests/webtbs/tw1720.pp svneol=native#text/plain
 tests/webtbs/tw17213.pp svneol=native#text/pascal
 tests/webtbs/tw17220.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw17193.pp b/tests/webtbs/tw17193.pp
new file mode 100644
index 0000000000..0ca3ce1315
--- /dev/null
+++ b/tests/webtbs/tw17193.pp
@@ -0,0 +1,35 @@
+program tw17193;
+
+{$mode objfpc}{$H+}
+
+type
+  generic G1<T> = class
+  public
+    value : T;
+  end;
+
+  generic G2<T> = class
+  public type
+    S1 = specialize G1<T>;
+    S2 = specialize G1<T>;
+  public
+    procedure P;
+  end;
+  
+  S = specialize G2<Integer>;
+
+procedure G2.P;
+begin
+end;
+
+var
+  x1 : S.S1;
+  x2 : S.S2;
+begin
+  x1 := S.S1.Create;
+  x2 := S.S2.Create;
+  x1.value := 111;
+  x2.value := x1.value;
+  if x2.value <> 111 then
+    Halt(1);
+end.