diff --git a/tests/tbs/tb0488.pp b/tests/tbs/tb0488.pp
index 68d945ccdb..5eeeeaf6f6 100644
--- a/tests/tbs/tb0488.pp
+++ b/tests/tbs/tb0488.pp
@@ -31,9 +31,11 @@ uses SysUtils,erroru;
 
 procedure Check(a,b:ansistring);
 begin
-  writeln(a);
   if a<>b then
-    error;
+    begin
+      writeln(a,' should be equal to ',b);
+      error;
+    end;
 end;
 
 begin