diff --git a/scheme/ikarus.strings.ss b/scheme/ikarus.strings.ss
index cf8949e..0a3a1a5 100644
--- a/scheme/ikarus.strings.ss
+++ b/scheme/ikarus.strings.ss
@@ -204,9 +204,9 @@
                               (f (cdr s*))]
                              [else 
                               (die who "not a string" 
-                                (car s*))]))))
-                     (die who "not a string" s2))])))
-          (die who "not a string" s1)))
+                                (car s*))])))
+                     (die who "not a string" s2)))]))
+          (die who "not a string0" s1))))
   
   (define ($string<? s1 s2)
     (let ([n1 ($string-length s1)]
diff --git a/scheme/last-revision b/scheme/last-revision
index 89fd686..9b53651 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1676
+1677