--- gforth/utf-8.fs	2004/12/28 21:09:47	1.7
+++ gforth/utf-8.fs	2004/12/29 14:15:12	1.8
@@ -45,6 +45,12 @@ s" malformed UTF-8 character" exception
     REPEAT  $7F xor 2* or  r>
     BEGIN   over $80 u>= WHILE  tuck c! 1+  REPEAT  nip ;
 
+\ plug-in so that char and '<char> work for UTF-8
+
+:noname  ( addr u -- char addr' u' )
+    dup 1 u<= IF  defers char@  EXIT  THEN
+    over + >r u8@+ swap r> over - ; IS char@
+
 \ scan to next/previous character
 
 : u8>> ( u8addr -- u8addr' )