--- gforth/prims2x.fs	2006/12/31 13:39:13	1.163
+++ gforth/prims2x.fs	2007/02/24 14:45:53	1.166
@@ -55,6 +55,12 @@
 \ for backwards compatibility, jaw
 require compat/strcomp.fs
 
+[undefined] outfile-execute [if]
+    : outfile-execute ( ... xt file-id -- ... )
+	\ unsafe replacement
+	outfile-id >r to outfile-id execute r> to outfile-id ;
+[then]
+
 warnings off
 
 \ redefinitions of kernel words not present in gforth-0.6.1
@@ -138,15 +144,13 @@ $12340000 immarg !
     over - type cr
     line-start @ rawinput @ over - typewhite ." ^" cr ;
 
+: print-error { addr u -- }
+    filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
+    print-error-line ;
+
 : ?print-error { f addr u -- }
     f ?not? if
-	outfile-id >r try
-	    stderr to outfile-id
-	    filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
-	    print-error-line
-	    0
-	recover endtry
-	r> to outfile-id throw
+	addr u ['] print-error stderr outfile-execute
 	1 (bye) \ abort
     endif ;