--- gforth/utf-8.fs	2006/02/19 22:15:05	1.20
+++ gforth/utf-8.fs	2006/02/19 22:35:40	1.21
@@ -128,10 +128,12 @@ $80 Value max-single-byte
 	nip nip over -
     then ;
 
+[IFDEF] wcwidth
 : u8width ( xcaddr u -- n )
     0 rot rot over + swap ?DO
 	I xc@+ swap >r wcwidth +
     r> I - +LOOP ;
+[THEN]
 
 : set-encoding-utf-8 ( -- )
     ['] u8emit is xemit