--- gforth/cross.fs	2003/08/04 20:32:34	1.140
+++ gforth/cross.fs	2003/11/10 16:57:05	1.144
@@ -1177,7 +1177,7 @@ false DefaultValue new-input
 false DefaultValue peephole
 false DefaultValue abranch
 true DefaultValue f83headerstring
-true  DefaultValue control-rack
+true DefaultValue control-rack
 [THEN]
 
 true DefaultValue gforthcross
@@ -1722,7 +1722,7 @@ Ghost (do)      Ghost (?do)
 Ghost (for)                                     drop
 Ghost (loop)    Ghost (+loop)                   2drop
 Ghost (next)                                    drop
-Ghost (does>)   Ghost (compile)                 2drop
+Ghost (does>)   Ghost (does>1)  Ghost compile,  2drop drop
 Ghost (.")      Ghost (S")      Ghost (ABORT")  2drop drop
 Ghost (C")      Ghost c(abort") Ghost type      2drop drop
 Ghost '                                         drop
@@ -2026,7 +2026,7 @@ variable ResolveFlag
 \ Header states                                        12dec92py
 
 \ : flag! ( 8b -- )   tlast @ dup >r T c@ xor r> c! H ;
-bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+
+X has? f83headerstring bigendian or [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+
 : flag! ( w -- )   tlast @ flag+ + dup >r T c@ xor r> c! H ;
 
 VARIABLE ^imm
@@ -2631,8 +2631,8 @@ T has? peephole H [IF]
 
 >TARGET
 Cond: DOES>
-        compile (does>) doeshandler,
-        resolve-does>-part
+        T here 4 cells H + alit, compile (does>1)
+        doeshandler, resolve-does>-part
         ;Cond
 
 : DOES>
@@ -3247,7 +3247,7 @@ Cond: postpone ( -- ) \ name
       ABORT" CROSS: Can't postpone on forward declaration"
       dup >magic @ <imm> =
       IF   (gexecute)
-      ELSE compile (compile) addr, THEN ;Cond
+      ELSE >link @ alit, compile compile,  THEN ;Cond
 	   
 \ save-cross                                           17mar93py