--- gforth/utf-8.fs 2007/10/03 16:58:15 1.31 +++ gforth/utf-8.fs 2007/10/17 16:05:22 1.32 @@ -293,7 +293,7 @@ here wc-table - Constant #wc-table ['] u8\string- is xstring- ['] +u8/string is +xstring [ [THEN] ] -[ [IFDEF] x/string+ ] +[ [IFDEF] +x/string ] ['] u8\string- is x\string- ['] +u8/string is +x/string [ [THEN] ]