diff --git a/startup.4th b/startup.4th
index dee0402..9a41f2c 100644
--- a/startup.4th
+++ b/startup.4th
@@ -414,6 +414,7 @@ CREATE PNO-POINTER PNO-BUFFER-END ,
          "I/O error\n" TYPE-ERR
       ENDOF
       "Uncaught exception: " TYPE-ERR
+      DUP DUP S>D DABS <# #S ROT SIGN #> TYPE-ERR EOL
    ENDCASE
    S0 SP! QUIT ;