* new bug

tests/tbs/tbs0346a.pp

@@ -0,0 +1,9 @@
+unit tbs0346a;
+interface
+
+type
+  word = system.word;
+
+implementation
+
+end.

tests/tbs/tbs0346b.pp

@@ -0,0 +1,16 @@
+unit tbs0346b;
+interface
+
+{ this uses system.word }
+procedure p(w:word);
+
+implementation
+uses
+  tbs0346a;
+
+{ this uses tbs0346a.word }
+procedure p(w:word);
+begin
+end;
+
+end.