--- gforth/locals.fs	2003/03/09 15:16:50	1.6
+++ gforth/locals.fs	2003/08/25 14:17:45	1.8
@@ -1,6 +1,6 @@
 \ Local primitives                                      17jan92py
 
-\ Copyright (C) 1995,2000 Free Software Foundation, Inc.
+\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -35,10 +35,10 @@ Variable locals  here locals !  100 ( so
 
 : <local ( -- sys1 )  current @ @ loffset @ locals @
   over 0= IF  postpone  ralign  THEN  ;                 immediate
-: local: ( -- )  postpone >r  last @ lastcfa @ here locals @ dp !
+: local: ( -- )  postpone >r  latest latestxt here locals @ dp !
   cell loffset +! Create  loffset @ , immediate (local
   here locals !  dp !  lastcfa ! last ! ;               immediate
-: flocal: ( -- )  last @ lastcfa @ here locals @ dp !
+: flocal: ( -- )  latest latestxt here locals @ dp !
   BEGIN  loffset @ 0 1 floats fm/mod drop  WHILE
          0 postpone Literal postpone >r  1 cells  loffset +!  REPEAT
   postpone f>r  Create  loffset @ , immediate (flocal