--- gforth/debug.fs	1995/11/07 18:06:35	1.4
+++ gforth/debug.fs	1997/06/01 20:50:38	1.7
@@ -224,7 +224,7 @@ VARIABLE Body
 
 : NestXT        ( xt -- true | body false )
                 DebugMode c-pass ! C-Output off
-                xtc C-Output on
+                xt-see C-Output on
                 c-pass @ DebugMode = dup
                 IF      ." Cannot debug" cr
                 THEN ;         
@@ -276,10 +276,20 @@ VARIABLE Unnest
                 Nesting @ 0= ?EXIT
                 -1 Nesting +! r>
                 ELSE
-                IP @ >r 1 Nesting +!
+                IP @ 1 cells + >r 1 Nesting +!
                 THEN
         AGAIN ;
 
 : dbg   ' NestXT ?EXIT (debug) Leave-D ;
 
-\ : test 1 2 4 swap dup . ;
+: break:
+        r> ['] (debug) >body >r ;
+
+: (break")
+        cr
+        ." BREAK AT: " type cr
+        r> ['] (debug) >body >r ;
+
+: break"
+        postpone s"
+        postpone (break") ; immediate