--- gforth/kernel/comp.fs	2002/02/10 14:02:26	1.41
+++ gforth/kernel/comp.fs	2002/04/01 15:34:35	1.42
@@ -257,7 +257,7 @@ is basic-block-end
     then ( xt )
     last-compiled !
     here last-compiled-here ! 0 , ;
-    
+
 : compile-to-prims, ( xt -- )
     \G compile xt to use primitives (and their peephole optimization)
     \G instead of ","-ing the xt.
@@ -267,13 +267,14 @@ is basic-block-end
 	\ 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
+	\ 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
+	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, ;