diff --git a/tests/tbs/tb0460.pp b/tests/tbs/tb0460.pp
index 432c96bd0b..96a895ad87 100644
--- a/tests/tbs/tb0460.pp
+++ b/tests/tbs/tb0460.pp
@@ -2,5 +2,22 @@ const
   MinCurrency : Currency = -922337203685477.5807;
   MaxCurrency : Currency = 922337203685477.5807;
 
+var
+  s : string;
+
 begin
-end.
\ No newline at end of file
+  str(MinCurrency:0:4,s);
+  { output according to delphi }
+  if s<>'-922337203685477.5810' then
+    begin
+      writeln(s);
+      halt(1);
+    end;
+  str(MaxCurrency:0:4,s);
+  { output according to delphi }
+  if s<>'922337203685477.5810' then
+    begin
+      writeln(s);
+      halt(1);
+    end;
+end.