--- gforth/extend.fs	2003/01/26 20:56:37	1.53
+++ gforth/extend.fs	2003/03/09 15:16:49	1.55
@@ -1,6 +1,6 @@
 \ EXTEND.FS    CORE-EXT Word not fully tested!         12may93jaw
 
-\ Copyright (C) 1995,1998,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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