all string comparison functions were broken for 1 and 3+ args.

fixed.

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)]

scheme/last-revision

@@ -1 +1 @@
-1676
+1677