--- gforth/kernel/int.fs	2012/07/23 14:15:52	1.191
+++ gforth/kernel/int.fs	2012/07/23 14:46:31	1.192
@@ -882,7 +882,7 @@ has? os [IF]
 	    [ has? OS [IF] ] >stderr [ [THEN] ]
 	    cr ." Can't print to stdout, leaving" cr
 	    \ if stderr does not work either, already DoError causes a hang
-	    2 (bye)
+	    -2 (bye)
 	endif [ [THEN] ]
 	refill  WHILE
 	    interpret prompt
@@ -1072,6 +1072,9 @@ Defer mark-end
     \G C calling us
     catch dup IF  DoError cr  THEN  (bye) ;
 
+: do-find ( addr u -- )
+    find-name dup IF  name>int  THEN  (bye) ;
+
 \ \ Cold Boot                                    	13feb93py
 
 : gforth ( -- )