V25 with 64-bit support

[pforth] / fth / strings.fth

diff --git a/fth/strings.fth b/fth/strings.fth
index ff0fc91..8bead25 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
         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
 ;\r
 \r
 \ Compare two strings\r