From 9d5509f3f9ada137141174b645c35df546c62d1a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 26 Feb 2005 09:53:43 +0000
Subject: [PATCH] no message

---
 tests/tbs/tb0488.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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