--- gforth/utf-8.fs	2010/12/31 18:09:02	1.42
+++ gforth/utf-8.fs	2011/09/01 20:09:23	1.43
@@ -300,6 +300,9 @@ here wc-table - Constant #wc-table
     ['] +u8/string is +x/string
 [ [THEN] ]
     ['] u8@ is xc@
+[ [IFDEF] xc!+ ]
+    ['] u8!+ is xc!+
+[ [THEN] ]
     ['] u8!+? is xc!+?
     ['] u8@+ is xc@+
     ['] u8len is xc-size