--- gforth/glocals.fs	2011/12/31 15:29:25	1.63
+++ gforth/glocals.fs	2012/02/07 16:48:55	1.65
@@ -88,10 +88,6 @@ require search.fs
 require float.fs
 require extend.fs \ for case
 
-: save-mem-dict ( addr1 u -- addr2 u )
-    here swap dup allot ( addr1 addr2 u )
-    2dup 2>r move 2r> ;
-
 : compile-@local ( n -- ) \ gforth compile-fetch-local
  case
     0       of postpone @local0 endof
@@ -217,7 +213,7 @@ variable locals-mem-list \ linked list o
 \ warn if list is not a sublist of locals-list
  locals-list @ sub-list? 0= if
    \ !! print current position
-   ." compiler was overly optimistic about locals at a BEGIN" cr
+     >stderr ." compiler was overly optimistic about locals at a BEGIN" cr
    \ !! print assumption and reality
  then ;