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