X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/c1b0551debcb415cbc9fc976d011998d9f14759b..922f2e38fe5332fae47d11af0473e9662c4b09fb:/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
 ;