--- gforth/extend.fs	1997/03/19 18:27:12	1.22
+++ gforth/extend.fs	1997/03/27 13:31:01	1.23
@@ -75,8 +75,11 @@ decimal
 
 \ UNUSED                                                17may93jaw
 
+: dictionary-end ( -- addr )
+    forthstart dup 3 cells + @ + ;
+
 : unused ( -- u ) \ core-ext
-    forthstart dup 3 cells + @ + here - ;
+    dictionary-end here - ;
 
 \ [COMPILE]                                             17may93jaw