Start preparing fix for libcc.fs

cross.fs

@@ -3034,6 +3034,7 @@ ghost :,
 ghost peephole-compile,
 2drop
 ghost does,
+ghost doesxt,
 ghost extraxt,
 2drop drop
 ghost value,

kernel/comp.fs

@@ -617,7 +617,8 @@ Create vttemplate
 : set-defer@    ( defer@-xt -- ) vttemplate >vtdefer@ ! ;
 : set->int      ( xt -- ) vttemplate >vt>int ! ;
 : set->comp     ( xt -- ) vttemplate >vt>comp ! ;
-: set-does>     ( xt -- ) !doesxt ; \ more work than the aboves
+: set-does>     ( xt -- ) !extraxt ; \ more work than the aboves
+: set-doesxt>   ( xt -- ) !doesxt ; \ more work than the aboves
 
 :noname ( -- colon-sys ) start-xt  set-optimizer ;
 :noname ['] set-optimizer start-xt-like ;

kernel/int.fs

@@ -542,10 +542,10 @@ cell% -2 * 0 0 field body> ( xt -- a_addr )
     dup @ dodoes: = if
 	cell+ @
     else dup @ dodoesxt: = if
-            cell+ @
+            cell+ @ >body
         else
             dup @ doextraxt: = IF
-                >namevt @ >vtextra @
+                >namevt @ >vtextra @ >body
             ELSE
                 drop 0
             THEN

libcc.fs

@@ -900,7 +900,7 @@ tmp$ $execstr-ptr !
     ['] rt-does> swap body> doesxt-code! ;
 
 : ?link-wrapper ( addr -- xf-cfr )
-    dup body> >does-code [ '  rt-does> >body ]L <> IF
+    dup body> >does-code [ ' rt-does> >body ]L <> IF
 	dup make-rt
 	dup link-wrapper-function over !  THEN ;