Fixed FORGET.

[forth.jl.git] / src / lib_7_vocab.4th

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 99900a0..0631ff0 100644 (file)
--- a/src/lib_7_vocab.4th
+++ b/src/lib_7_vocab.4th
@@ -10,7 +10,7 @@
 
         >link
 
-        DUP @ CURRENT @ VOCAB>LATEST !      ( set LATEST to point to the previous word )
+        dup @ current @ 1+ !      ( set LATEST to point to the previous word )
 ;
 
 \ Mark word as hidden