--- gforth/arch/386/asm.fs	2000/09/23 15:47:00	1.7
+++ gforth/arch/386/asm.fs	2001/08/25 21:12:24	1.9
@@ -54,7 +54,7 @@ base @ get-current ALSO ASSEMBLER DEFINI
 
 Variable >codes
 : (+rel      ;
-Create nrc  ] c,   here  allot  c! (+rel [
+Create nrc  ' c, A, ' here A, ' allot A, ' c! A, ' (+rel A,
 
 : nonrelocate   nrc >codes ! ;      nonrelocate
 
@@ -594,5 +594,5 @@ $BB 3Dnow: PSWABD               : SFENCE
 : makeflag   [A] ~cond AL swap setIF  1 # AX and  AX dec [F] ;
 
 
-previous set-current decimal base !
+previous previous set-current decimal base !