* fixed also comment

tests/webtbs/tw3157.pp

@@ -30,7 +30,7 @@ begin
       Writeln('Line "c:=..." raised ' +E.ClassName+ ': ' +E.Message);
       if E.ClassType<>EOverflow then
         begin
-          writeln('EInvalidOp exception expected');
+          writeln('EOverflow exception expected');
           halt(1);
         end;
       dec(notcaught);