--- gforth/cross.fs	1999/07/24 13:07:18	1.80
+++ gforth/cross.fs	1999/12/31 21:39:59	1.83
@@ -787,7 +787,7 @@ VARIABLE env-current \ save information
 
 >ENVIRON get-order get-current swap 1+ set-order
 true SetValue compiler
-true  SetValue cross
+true SetValue cross
 true SetValue standard-threading
 >TARGET previous
 
@@ -864,7 +864,7 @@ float             	Constant tfloat
 bits/byte		Constant tbits/byte
 [THEN]
 H
-tbits/byte bits/byte /	Constant tbyte
+tbits/char bits/byte /	Constant tbyte
 
 
 \ Variables                                            06oct92py
@@ -1222,7 +1222,7 @@ T has? relocate H
 : c@ ( taddr -- char )  >image Sc@ ;
 : c! ( char taddr -- )  >image Sc! ;
 : 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ;
-: 2! ( x1 x2 taddr -- ) T swap over ! cell+ ! H ;
+: 2! ( x1 x2 taddr -- ) T tuck ! cell+ ! H ;
 
 \ Target compilation primitives                        06oct92py
 \ included A!                                          16may93jaw