--- gforth/kernel/comp.fs	2002/02/04 21:25:18	1.40
+++ gforth/kernel/comp.fs	2002/02/10 14:02:26	1.41
@@ -264,16 +264,17 @@ is basic-block-end
     \ !! all POSTPONEs here postpone primitives; this can be optimized
     dup >does-code if
 	POSTPONE does-exec , EXIT
+	\ dup >body POSTPONE literal POSTPONE call >does-code , EXIT
     then
     dup >code-address CASE
-	docon:   OF >body POSTPONE lit@ , EXIT ENDOF
+	docon:   OF >body POSTPONE literal POSTPONE @ EXIT ENDOF
 	   \ docon is also used by VALUEs, so don't @ at compile time
 	docol:   OF >body POSTPONE call , EXIT ENDOF
 	dovar:   OF >body POSTPONE literal EXIT ENDOF
 	douser:  OF >body @ POSTPONE useraddr , EXIT ENDOF
 	dodefer: OF >body POSTPONE lit-perform , EXIT
 	ENDOF
-	dofield: OF >body @ POSTPONE lit+ , EXIT ENDOF
+	dofield: OF >body @ POSTPONE literal POSTPONE + EXIT ENDOF
     ENDCASE
     static-compile, ;