From bb96165912d39c1558c6c957014986c45db0f78c Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Thu, 7 Feb 2019 02:28:49 +0000
Subject: [PATCH] remove an unneeded charater

FossilOrigin-Name: 1dc7ebf7f5d8b2946dac041293537073256f3b711e79a40c4abe61cef97050b7
---
 example/retro-extend.forth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example/retro-extend.forth b/example/retro-extend.forth
index 2cf8056..42f9e5c 100755
--- a/example/retro-extend.forth
+++ b/example/retro-extend.forth
@@ -257,7 +257,7 @@ top level word called returns.
   #8 shift dup mask write-byte
   #8 shift     mask write-byte ;
 
-:save-image (s-)z
+:save-image (s-)
   file:W file:open !FID
   &Image &Image #3 + fetch [ fetch-next write-cell ] times drop
   &Image #3 + fetch n:put sp 'cells_written s:put nl