V25 with 64-bit support

[debian/pforth] / fth / strings.fth

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