--- gforth/debugs.fs	2011/12/31 15:29:25	1.24
+++ gforth/debugs.fs	2012/08/09 23:58:52	1.25
@@ -49,8 +49,10 @@ defer .debugline ( nfile nline -- ) \ gf
     printdebugdata
     cr ;
 
+[IFUNDEF] debug-fid
 stderr value debug-fid ( -- fid )
 \G (value) Debugging output prints to this file
+[THEN]
 
 ' (.debugline) IS .debugline