WORDS stack leak

1 files changed, 1 insertions, 1 deletions

diff --git a/jefs.fs b/jefs.fs
index 77a7747..d3e4331 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -263,7 +263,7 @@ make error-msgs #error-msgs cells allot
 : hide  parse find drop (hide) ; \ todo error handling
 
 : hidden? ( lfa -- ? )  >ffa c@ 1 and 0<> ;
-: (words) ( lfa -- )  dup hidden? not if >nfa dup w@ swap 2 + swap say 2 spaces then ;
+: (words) ( lfa -- )  dup hidden? not if >nfa dup w@ swap 2 + swap say 2 spaces else drop then ;
 : words  latest @ begin ?dup 0<> while dup (words) @ repeat cr ;
 
 \ I/O {{{