--- gforth/cross.fs	2003/11/09 20:47:49	1.143
+++ gforth/cross.fs	2003/11/10 16:57:05	1.144
@@ -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
@@ -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>