* fixed test

git-svn-id: trunk@5898 -

tests/webtbs/tw2131.pp

@@ -8,7 +8,7 @@ begin
     correct := ' 1.8E+0012'
   else
     correct := ' 1.8E+012';
-  Str (1.789e12:1, TestStr);
+  Str (extended(1.789e12):1, TestStr);
   if (teststr <> correct) then
     begin
       writeln('error, got "',teststr,'" expected "',correct,'"');