diff --git a/.gitattributes b/.gitattributes
index 933bce7bb8..bca7dd65eb 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -11754,6 +11754,7 @@ tests/webtbs/tw2002.pp svneol=native#text/plain
 tests/webtbs/tw20035a.pp svneol=native#text/pascal
 tests/webtbs/tw20035b.pp svneol=native#text/pascal
 tests/webtbs/tw2004.pp svneol=native#text/plain
+tests/webtbs/tw20093.pp svneol=native#text/pascal
 tests/webtbs/tw2028.pp svneol=native#text/plain
 tests/webtbs/tw2030.pp svneol=native#text/plain
 tests/webtbs/tw2031.pp svneol=native#text/plain
@@ -12544,6 +12545,8 @@ tests/webtbs/tw9985.pp svneol=native#text/plain
 tests/webtbs/tw9985a.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
+tests/webtbs/uvmt.pp svneol=native#text/pascal
+tests/webtbs/uvmt_a.pp svneol=native#text/pascal
 tests/webtbs/uw0555.pp svneol=native#text/plain
 tests/webtbs/uw0701c.pp svneol=native#text/plain
 tests/webtbs/uw0701d.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw20093.pp b/tests/webtbs/tw20093.pp
new file mode 100755
index 0000000000..c5c5e250f7
--- /dev/null
+++ b/tests/webtbs/tw20093.pp
@@ -0,0 +1,19 @@
+{ Test for bug report 20093
+  Reported 2011-08-29
+  a_tclass in unit uvmt
+  and tclass in unit uvmt_a
+  both generate the same symbol name for the VMT
+  }
+
+uses
+  uvmt, uvmt_a;
+
+var
+  a1 : tclass;
+  a2 : a_tclass;
+begin
+  a1 := tclass.create;
+  a2 := a_tclass.create;
+  a1.destroy;
+  a2.destroy;
+end.
diff --git a/tests/webtbs/uvmt.pp b/tests/webtbs/uvmt.pp
new file mode 100755
index 0000000000..dd86a0e650
--- /dev/null
+++ b/tests/webtbs/uvmt.pp
@@ -0,0 +1,15 @@
+{ OPT=-gw }
+
+unit uvmt;
+
+{$mode objfpc}
+
+interface
+
+type
+  a_tclass = class (tobject)
+    x : integer;
+  end;
+implementation
+
+end.
diff --git a/tests/webtbs/uvmt_a.pp b/tests/webtbs/uvmt_a.pp
new file mode 100755
index 0000000000..c4b3dc427b
--- /dev/null
+++ b/tests/webtbs/uvmt_a.pp
@@ -0,0 +1,15 @@
+{ OPT=-gw }
+
+unit uvmt_a;
+
+{$mode objfpc}
+
+interface
+
+type
+  tclass = class (tobject)
+    x : integer;
+  end;
+implementation
+
+end.