--- gforth/cross.fs	2001/03/18 22:20:26	1.96
+++ gforth/cross.fs	2001/07/10 20:47:09	1.100
@@ -808,7 +808,7 @@ ghost (next)
 ghost unloop    ghost ;S                        2drop
 ghost lit       ghost (compile) ghost !         2drop drop
 ghost (does>)   ghost noop                      2drop
-ghost (.")      ghost (S")      ghost (ABORT")  2drop drop ( " )
+ghost (.")      ghost (S")      ghost (ABORT")  2drop drop
 ghost '                                         drop
 ghost :docol    ghost :doesjump ghost :dodoes   2drop drop
 ghost :dovar	ghost :dodefer  ghost :dofield  2drop drop
@@ -944,7 +944,7 @@ Variable user-vars 0 user-vars !
 : target>bitmask-size ( u1 -- u2 )
   1- tcell>bit rshift 1+ ;
 
-: allocatetarget ( size --- adr )
+: allocatetarget ( size -- adr )
   dup allocate ABORT" CROSS: No memory for target"
   swap over swap erase ;
 
@@ -1050,7 +1050,7 @@ T has? rom H
 ' dictionary ALIAS rom-dictionary
 
 
-: setup-target ( -- )   \G initialize targets memory space
+: setup-target ( -- )   \G initialize target's memory space
   s" rom" T $has? H
   IF  \ check for ram and rom...
       \ address-space area nip 0<>
@@ -1087,7 +1087,7 @@ T has? rom H
         ELSE    r> drop THEN
    REPEAT drop ;
 
-\ MakeKernal                                           		22feb99jaw
+\ MakeKernel                                           		22feb99jaw
 
 : makekernel ( targetsize -- targetsize )
   dup dictionary >rlen ! setup-target ;
@@ -1579,8 +1579,7 @@ Variable to-doc  to-doc on
     IF
 	s" " doc-file-id write-line throw
 	s" make-doc " doc-file-id write-file throw
-
-	tlast @ >image count 1F and doc-file-id write-file throw
+        Last-Header-Ghost @ >ghostname doc-file-id write-file throw
 	>in @
 	[char] ( parse 2drop
 	[char] ) parse doc-file-id write-file throw
@@ -2113,7 +2112,7 @@ T has? peephole H [IF]
 [ELSE]
 : compile:  ( ghost -- ghost xt colon-sys )  :noname ;
 : ;compile ( ghost xt colon-sys -- ghost )
-    postpone ; drop ; immediate
+    postpone ; drop ['] prim-resolved over >comp ! ; immediate
 [THEN]
 
 : by      ( -- ghost ) \ Name
@@ -2405,9 +2404,9 @@ Cond: NEXT	restrict? sys? next, ;Cond
 
 : ,"            [char] " parse T string, align H ;
 
-Cond: ."        restrict? compile (.")     T ," H ;Cond ( " )
-Cond: S"        restrict? compile (S")     T ," H ;Cond ( " )
-Cond: ABORT"    restrict? compile (ABORT") T ," H ;Cond ( " )
+Cond: ."        restrict? compile (.")     T ," H ;Cond
+Cond: S"        restrict? compile (S")     T ," H ;Cond
+Cond: ABORT"    restrict? compile (ABORT") T ," H ;Cond
 
 Cond: IS        T ' >body H compile ALiteral compile ! ;Cond
 : IS            T >address ' >body ! H ;
@@ -2699,6 +2698,10 @@ previous
 : .s            .s ;
 : bye           bye ;
 
+\ dummy
+
+: group  source >in ! drop ;
+
 \ turnkey direction
 : H forth ; immediate
 : T minimal ; immediate