--- gforth/prim	2007/08/21 10:33:52	1.217
+++ gforth/prim	2007/09/29 22:20:02	1.219
@@ -109,9 +109,9 @@
 \E store-optimization on
 \E ' noop tail-nextp2 ! \ now INST_TAIL just stores, but does not jump
 \E
-\E include-skipped-insts on \ static superinsts include cells for components
-\E                          \ useful for dynamic programming and
-\E                          \ superinsts across entry points
+\E `include-skipped-insts' on \ static superinsts include cells for components
+\E                            \ useful for dynamic programming and
+\E                            \ superinsts across entry points
 
 \ 
 \ 
@@ -201,6 +201,14 @@ n2 = n1 + *(Cell *)PFA(CFA);
 #ifdef NO_IP
 INST_TAIL;
 goto *next_code;
+#endif /* defined(NO_IP) */
+
+(dovalue) ( -- w )	gforth-internal	paren_doval
+""run-time routine for constants""
+w = *(Cell *)PFA(CFA);
+#ifdef NO_IP
+INST_TAIL;
+goto *next_code;
 #endif /* defined(NO_IP) */
 
 (dodoes) ( -- a_body R:a_retaddr )	gforth-internal	paren_dodoes