--- gforth/debugs.fs	2006/12/31 13:39:12	1.15
+++ gforth/debugs.fs	2007/02/23 22:33:21	1.16
@@ -53,7 +53,7 @@ defer .debugline ( nfile nline -- ) \ gf
 ' (.debugline) IS .debugline
 
 : .debugline-stderr ( nfile nline -- )
-    stderr >outfile .debugline outfile< ;
+    ['] .debugline stderr outfile-execute ;
 
 :noname ( -- )
     current-sourcepos .debugline-stderr ;