--- gforth/kernel/comp.fs	2006/02/19 13:33:42	1.76
+++ gforth/kernel/comp.fs	2006/02/19 17:27:13	1.77
@@ -522,10 +522,15 @@ doer? :dodefer [IF]
 
 [ELSE]
 
-: Defer ( "name" -- ) \ gforth
-    Create ['] defer-default A,
-DOES> @ execute ;
-
+    has? rom [IF]
+	: Defer ( "name" -- ) \ gforth
+	    Create ['] defer-default A,
+	  DOES> @ @ execute ;
+    [ELSE]
+	: Defer ( "name" -- ) \ gforth
+	    Create ['] defer-default A,
+	  DOES> @ execute ;
+    [THEN]
 [THEN]
 
 : defer@ ( xt-deferred -- xt ) \ gforth defer-fetch