--- gforth/extend.fs	2003/01/20 17:07:37	1.52
+++ gforth/extend.fs	2003/01/31 22:45:11	1.54
@@ -118,7 +118,7 @@ decimal
     begin
 	dup r@ >=
     while
-	over 2r@ swap -text 0= if
+	2dup 2r@ string-prefix? if
 	    2swap 2drop 2r> 2drop true exit
 	endif
 	1 /string
@@ -266,7 +266,7 @@ variable span ( -- c-addr ) \ core-ext
     drop
     \ restore udp and dp
 [IFDEF] forget-dyncode
-    dup cell+ @ forget-dyncode 0= abort" gforth bug"
+    dup cell+ @ forget-dyncode drop
 [THEN]
     @ udp !  dp !
     \ clean up vocabulary stack