use cell+ in s"

1 files changed, 2 insertions, 2 deletions

diff --git a/jefs.fs b/jefs.fs
index c6cee2d..7a28b9b 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -176,7 +176,7 @@ variable hld
 : .qword  (.qword) say space ;
 
 : ?  @ . ;
-: .s  sp 8 + ( skip sp itself ) begin dup s0 @ > while dup @ .qword 8 + repeat drop cr ;
+: .s  sp cell+ ( skip sp itself ) begin dup s0 @ > while dup @ .qword cell+ repeat drop cr ;
 : bytes-allocated  hend @ h0 @ - ;
 : bytes-used  here @ h0 @ - ;
 : bytes-free  bytes-allocated bytes-used - ;
@@ -196,5 +196,5 @@ variable hld
 \ : teststr3 s" 1 2 3 .s" ;
 \
 \ teststr3 evaluate
-t .free
+.free
 bye