Index: charset/iso-8859-1.c
===================================================================
--- charset/iso-8859-1.c	(revision 8056)
+++ charset/iso-8859-1.c	(working copy)
@@ -347,7 +347,7 @@
             return pos;
         }
     }
-    return -1;
+    return end;
 }
 
 static INTVAL
@@ -365,7 +365,7 @@
             return pos;
         }
     }
-    return -1;
+    return end;
 }
 
 
Index: charset/ascii.c
===================================================================
--- charset/ascii.c	(revision 8056)
+++ charset/ascii.c	(working copy)
@@ -580,7 +580,7 @@
             return pos;
         }
     }
-    return -1;
+    return end;
 }
 
 static INTVAL
@@ -598,7 +598,7 @@
             return pos;
         }
     }
-    return -1;
+    return end;
 }
 
 /*
Index: t/op/string_cclass.t
===================================================================
--- t/op/string_cclass.t	(revision 8056)
+++ t/op/string_cclass.t	(working copy)
@@ -35,30 +35,30 @@
     .param string str
     .param int flags
     $I0 = 0
+    $I2 = length str
 loop:
-    $I0 = find_cclass flags, str, $I0, 100
-    if $I0 == -1 goto end
-    print $I0
+    $I1 = find_cclass flags, str, $I0, 100
+    print $I1
     print ";"
     inc $I0
-    branch loop
+    if $I0 <= $I2 goto loop
 end:
     print "\n"
 .end
 CODE
-0;1;2;3;4;5;6;7;8;10;
-6;7;
-0;1;
-4;8;12;
+0;1;2;3;4;5;6;7;8;10;10;12;12;
+6;6;6;6;6;6;6;7;13;13;13;13;13;13;
+0;1;13;13;13;13;13;13;13;13;13;13;13;13;
+4;4;4;4;4;8;8;8;8;12;12;12;12;13;
 OUT
 
-pir_output_is(<<'CODE', <<'OUT', "find_cclass, iso-8859-1");
+pir_output_is(<<'CODE', <<'OUT', "find_not_cclass, ascii");
 .include "cclass.pasm"
 .sub main @MAIN
-    $S0 = iso-8859-1:"test_func(1)"
+    $S0 = ascii:"test_func(1)"
     test( .CCLASS_WORD, $S0 )
     
-    $S0 = iso-8859-1:"ab\nC_X34.\0 \t!"
+    $S0 = ascii:"ab\nC_X34.\0 \t!"
     test( .CCLASS_NUMERIC, $S0 )
     test( .CCLASS_LOWERCASE, $S0 )
     test( .CCLASS_PUNCTUATION, $S0 )
@@ -67,30 +67,30 @@
     .param string str
     .param int flags
     $I0 = 0
+    $I2 = length str
 loop:
-    $I0 = find_cclass flags, str, $I0, 100
-    if $I0 == -1 goto end
-    print $I0
+    $I1 = find_not_cclass flags, str, $I0, 100
+    print $I1
     print ";"
     inc $I0
-    branch loop
+    if $I0 <= $I2 goto loop
 end:
     print "\n"
 .end
 CODE
-0;1;2;3;4;5;6;7;8;10;
-6;7;
-0;1;
-4;8;12;
+9;9;9;9;9;9;9;9;9;9;11;11;12;
+0;1;2;3;4;5;8;8;8;9;10;11;12;13;
+2;2;2;3;4;5;6;7;8;9;10;11;12;13;
+0;1;2;3;5;5;6;7;9;9;10;11;13;13;
 OUT
 
-pir_output_is(<<'CODE', <<'OUT', "find_not_cclass, ascii");
+pir_output_is(<<'CODE', <<'OUT', "find_cclass, iso-8859-1");
 .include "cclass.pasm"
 .sub main @MAIN
-    $S0 = ascii:"test_func(1)"
+    $S0 = iso-8859-1:"test_func(1)"
     test( .CCLASS_WORD, $S0 )
     
-    $S0 = ascii:"ab\nC_X34.\0 \t!"
+    $S0 = iso-8859-1:"ab\nC_X34.\0 \t!"
     test( .CCLASS_NUMERIC, $S0 )
     test( .CCLASS_LOWERCASE, $S0 )
     test( .CCLASS_PUNCTUATION, $S0 )
@@ -99,21 +99,21 @@
     .param string str
     .param int flags
     $I0 = 0
+    $I2 = length str
 loop:
-    $I0 = find_not_cclass flags, str, $I0, 100
-    if $I0 == -1 goto end
-    print $I0
+    $I1 = find_cclass flags, str, $I0, 100
+    print $I1
     print ";"
     inc $I0
-    branch loop
+    if $I0 <= $I2 goto loop
 end:
     print "\n"
 .end
 CODE
-9;11;
-0;1;2;3;4;5;8;9;10;11;12;
-2;3;4;5;6;7;8;9;10;11;12;
-0;1;2;3;5;6;7;9;10;11;
+0;1;2;3;4;5;6;7;8;10;10;12;12;
+6;6;6;6;6;6;6;7;13;13;13;13;13;13;
+0;1;13;13;13;13;13;13;13;13;13;13;13;13;
+4;4;4;4;4;8;8;8;8;12;12;12;12;13;
 OUT
 
 pir_output_is(<<'CODE', <<'OUT', "find_not_cclass, iso-8859-1");
@@ -131,21 +131,21 @@
     .param string str
     .param int flags
     $I0 = 0
+    $I2 = length str
 loop:
-    $I0 = find_not_cclass flags, str, $I0, 100
-    if $I0 == -1 goto end
-    print $I0
+    $I1 = find_not_cclass flags, str, $I0, 100
+    print $I1
     print ";"
     inc $I0
-    branch loop
+    if $I0 <= $I2 goto loop
 end:
     print "\n"
 .end
 CODE
-9;11;
-0;1;2;3;4;5;8;9;10;11;12;
-2;3;4;5;6;7;8;9;10;11;12;
-0;1;2;3;5;6;7;9;10;11;
+9;9;9;9;9;9;9;9;9;9;11;11;12;
+0;1;2;3;4;5;8;8;8;9;10;11;12;13;
+2;2;2;3;4;5;6;7;8;9;10;11;12;13;
+0;1;2;3;5;5;6;7;9;9;10;11;13;13;
 OUT
 
 pir_output_is(<<'CODE', <<'OUT', "is_cclass, ascii");