--- gforth/string.fs	2010/09/04 21:34:23	1.9
+++ gforth/string.fs	2010/12/31 14:37:13	1.11
@@ -43,6 +43,7 @@
   2dup dup $@len rot + swap $!len  $@ 1+ r> /string insert ;
 : $+! ( addr1 u addr2 -- ) dup $@len $ins ;
 : $off ( addr -- )  dup @ dup IF  free throw off  ELSE  2drop  THEN ;
+: $init ( addr -- )  >r r@ off s" " r> $! ;
 
 \ dynamic string handling                              12dec99py
 
@@ -50,6 +51,6 @@
   >r 2dup r> scan dup >r dup IF  1 /string  THEN
   2swap r> - 2swap ;
 
-: $iter ( .. $addr char xt -- .. ) { char xt }
-  $@ BEGIN  dup  WHILE  char $split >r >r xt execute r> r>
-     REPEAT  2drop ;
+: $iter ( .. $addr char xt -- .. ) >r >r
+  $@ BEGIN  dup  WHILE  r@ $split i' -rot >r >r execute r> r>
+     REPEAT  2drop rdrop rdrop ;