Added workable KEY.

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

diff --git a/src/lib.4th b/src/lib.4th
index d599036..664ff80 100644 (file)
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -741,7 +741,7 @@ DOES>   @
 
 : HIDE
         BL WORD FIND DROP >NAME
-        DUP F_HIDDEN OR SWAP !
+        DUP @ F_HIDDEN OR SWAP !
 ;
 
 ( MEMORY  ------------------------------------------------------------------ )