--- gforth/debug.fs	1999/03/23 20:24:17	1.11
+++ gforth/debug.fs	1999/05/20 13:31:57	1.12
@@ -143,6 +143,7 @@ VARIABLE Unnest
 : dbg \ gforth 
     ' NestXT IF EXIT THEN (debug) Leave-D ;
 
+has? compiler [IF]
 : break: \ gforth
     r> ['] (debug) >body >r ;
 
@@ -154,3 +155,4 @@ VARIABLE Unnest
 : break" \ gforth
     postpone s"
     postpone (break") ; immediate
+[THEN]
\ No newline at end of file