broken, segfaulting .free

seems to be string handling issue
somehow the actual text of the next word ends up on the stack

1 files changed, 5 insertions, 1 deletions

diff --git a/jefs.fs b/jefs.fs
index faf96ae..8a5c2d5 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -153,5 +153,9 @@ variable hld
 
 : ?  @ . ;
 : .s  sp 8 + ( skip sp itself ) begin dup s0 @ >= while dup @ .qword 8 + repeat drop cr ;
+: bytes-allocated  hend @ h0 @ - ;
+: bytes-used  here @ h0 @ - ;
+: bytes-free  bytes-allocated bytes-used - ;
+: .free  bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; \ segfaults
 
-bye
+.free bye