--- gforth/engine/engine.c	2007/03/17 19:14:57	1.98
+++ gforth/engine/engine.c	2007/03/18 21:46:17	1.99
@@ -368,7 +368,7 @@ Label *gforth_engine(Xt *ip0, Cell *sp0,
 #include PRIM_LAB_I
 #undef INST_ADDR
   };
-#ifdef INCLUDE_IMAGE
+#ifdef STANDALONE
 #define INST_ADDR(name) ((Label)&&I_##name)
 #include "image.i"
 #undef INST_ADDR
@@ -404,7 +404,11 @@ Label *gforth_engine(Xt *ip0, Cell *sp0,
       xts[i] = symbols[i] = &routines[i];
     }
 #endif /* defined(DOUBLY_INDIRECT) */
+#ifdef STANDALONE
+    return image;
+#else
     return symbols;
+#endif
   }
 
 #if !(defined(GFORTH_DEBUGGING) || defined(INDIRECT_THREADED) || defined(DOUBLY_INDIRECT) || defined(VM_PROFILING))