--- gforth/cross.fs	2003/01/01 17:28:29	1.133
+++ gforth/cross.fs	2003/03/01 11:57:42	1.137
@@ -1412,11 +1412,10 @@ T has? rom H
 
 \ MakeKernel                                           		22feb99jaw
 
-: makekernel ( targetsize -- )
+: makekernel ( start targetsize -- )
 \G convenience word to setup the memory of the target
 \G used by main.fs of the c-engine based systems
-  100 swap dictionary (region)
-  setup-target ;
+  dictionary (region) setup-target ;
 
 >MINIMAL
 : makekernel makekernel ;
@@ -2072,8 +2071,8 @@ s" kernel.TAGS" r/w create-file throw va
 s" kernel.tags" r/w create-file throw value vi-tag-file-id
 \ contains the file-id of the tags file
 
-Create tag-beg 2 c,  7F c, bl c,
-Create tag-end 2 c,  bl c, 01 c,
+Create tag-beg 1 c,  7F c,
+Create tag-end 1 c,  01 c,
 Create tag-bof 1 c,  0C c,
 Create tag-tab 1 c,  09 c,
 
@@ -2581,8 +2580,13 @@ Cond: [ ( -- ) interpreting-state ;Cond
 
 Defer instant-interpret-does>-hook
 
+T has? peephole H [IF]
 : does-resolved ( ghost -- )
     compile does-exec g>xt T a, H ;
+[ELSE]
+: does-resolved ( ghost -- )
+    g>xt T a, H ;
+[THEN]
 
 : resolve-does>-part ( -- )
 \ resolve words made by builders