--- gforth/utf-8.fs	2005/01/04 22:09:04	1.10
+++ gforth/utf-8.fs	2005/01/05 16:24:33	1.12
@@ -62,8 +62,7 @@ $80 Value maxascii
 
 \ scan to next/previous character
 
-: u8>> ( u8addr -- u8addr' )
-    BEGIN  count $C0 and maxascii <>  UNTIL ;
+: u8>> ( u8addr -- u8addr' )  u8@+ drop ;
 : u8<< ( u8addr -- u8addr' )
     BEGIN  1- dup c@ $C0 and maxascii <>  UNTIL ;