--- gforth/kernel/errore.fs	1997/05/21 20:40:14	1.1
+++ gforth/kernel/errore.fs	1997/09/13 12:05:51	1.2
@@ -43,7 +43,7 @@ decimal
 	IF 2 cells + count type drop exit THEN
     REPEAT
     drop
-[ has-os [IF] ]
+[ has? os [IF] ]
     dup -511 -255 within
     IF
 	256 + negate strsignal type exit