* generate some output on error

tests/webtbs/tw1414.pp

@@ -1,5 +1,14 @@
 uses
   dos;
+ var
+   i : longint;
 begin
+{$i-}
   chdir('');
+  i:=ioresult;
+  if i<>0 then
+    begin
+      Writeln('chdir('''') fails wih error ',i);
+      Halt(i);
+    end;
 end.