X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/881487d78784519fb4e1ad20afbca22bb6532dd2..a8f5615dcc9ab22080c4897babfad092885b1b6e:/fth/misc1.fth

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 3a3a60a..373e495 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -36,7 +36,9 @@ decimal
 
 : (ABORT")  ( flag $message -- )
     swap
-    IF count type cr abort
+    IF
+    	count type cr
+    	err_abortq throw
     ELSE drop
     THEN
 ;