X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..90975d261c7ab39186c75d8700261faab3427de7:/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