* System() function scope problem

tests/webtbs/tw2984.pp

@@ -0,0 +1,7 @@
+uses
+  uw2984;
+
+begin
+  uw2984.System('test');
+end.
+

tests/webtbs/uw2984.pp

@@ -0,0 +1,13 @@
+unit uw2984;
+interface
+
+procedure System(const s:string);
+
+implementation
+
+procedure System(const s:string);
+begin
+  writeln(s);
+end;
+
+end.