--- gforth/kernel/basics.fs	2002/09/14 08:20:20	1.32
+++ gforth/kernel/basics.fs	2002/11/24 13:54:02	1.33
@@ -231,6 +231,9 @@ is throw
 
 \ (abort")
 
+: c(abort") ( c-addr -- )
+    "error ! -2 throw ;
+
 : (abort")
     "lit >r
     IF