Merged revisions 7766 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7766 | yury | 2007-06-22 02:05:20 +0300 (Пт, 22 июн 2007) | 1 line
  
  * fixed test.
........

git-svn-id: branches/fixes_2_2@7767 -

tests/webtbs/tw7391.pp

@@ -1,7 +1,7 @@
 program stored;
 {$mode objfpc}{$h+}
 uses
-  Classes;
+  SysUtils, Classes;
 
 const
   ShowTheException = true; //set this to false for halt(128) instead of exception
@@ -106,4 +106,3 @@ begin
   writeln('ok. done.');
   DeleteFile('testfile.tmp');
 end.
-