* Fix for web bug #3011

docs/sysutex/ex39.pp

@@ -8,8 +8,8 @@ Var F,D : Longint;
 
 Begin
   F:=FileCreate('test.dat');
-  D:=FileGetDate(D);
-  Writeln ('File crerated on ',DateTimeToStr(FileDateToDateTime(D)));
+  D:=FileGetDate(F);
+  Writeln ('File created on ',DateTimeToStr(FileDateToDateTime(D)));
   FileClose(F);
   DeleteFile('test.dat');
 End.