diff --git a/scheme/ikarus.unicode-data.ss b/scheme/ikarus.unicode-data.ss
index fa39263..f6eb4de 100644
--- a/scheme/ikarus.unicode-data.ss
+++ b/scheme/ikarus.unicode-data.ss
@@ -164,7 +164,7 @@
        (or (char? x) (die 'char-ci=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char=? 'char-ci=?)
+           (char-ci-loop ($fold x) x* = 'char-ci=?)
            (die 'char-ci=? "not a char" x))]))
 
   (define char-ci<? 
@@ -180,7 +180,7 @@
        (or (char? x) (die 'char-ci<? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char<? 'char-ci<?)
+           (char-ci-loop ($fold x) x* < 'char-ci<?)
            (die 'char-ci<? "not a char" x))]))
 
   (define char-ci<=? 
@@ -196,7 +196,7 @@
        (or (char? x) (die 'char-ci<=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char<=? 'char-ci<=?)
+           (char-ci-loop ($fold x) x* <= 'char-ci<=?)
            (die 'char-ci<=? "not a char" x))]))
 
   (define char-ci>? 
@@ -212,7 +212,7 @@
        (or (char? x) (die 'char-ci>? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char>? 'char-ci>?)
+           (char-ci-loop ($fold x) x* > 'char-ci>?)
            (die 'char-ci>? "not a char" x))]))
   
   (define char-ci>=? 
@@ -228,7 +228,7 @@
        (or (char? x) (die 'char-ci>=? "not a char" x))]
       [(x . x*) 
        (if (char? x) 
-           (char-ci-loop x x* char>=? 'char-ci>=?)
+           (char-ci-loop ($fold x) x* >= 'char-ci>=?)
            (die 'char-ci>=? "not a char" x))]))
                
   (define ($string-change-case str adjustment-vector)
diff --git a/scheme/last-revision b/scheme/last-revision
index 1008433..a3845ee 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1631
+1632