X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/970d32b553a44051cedd2caf34267b7b1cdbab78..1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c:/fth/strings.fth

diff --git a/fth/strings.fth b/fth/strings.fth
index ff0fc91..8bead25 100644
--- a/fth/strings.fth
+++ b/fth/strings.fth
@@ -24,7 +24,7 @@ ANEW TASK-STRINGS.FTH
         2+ * even-up allot
     DOES>    ( index -- $addr )
         dup @  ( get #chars )
-        rot * + 4 +
+        rot * + cell+
 ;
 
 \ Compare two strings