diff --git a/scheme/base.sld b/scheme/base.sld
index acead90f..ced2bb93 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -605,14 +605,12 @@
     (define (char>=? c1 c2 . cs) (Cyc-bin-op-char >= c1 (cons c2 cs)))
     ; TODO: char-ci predicates (in scheme/char library)
 
+    (define (string=? str1 str2 . strs)  (Cyc-bin-op fast-string=? str1 (cons str2 strs)))
+    (define (string<? str1 str2 . strs)  (Cyc-bin-op fast-string<? str1 (cons str2 strs)))
+    (define (string<=? str1 str2 . strs) (Cyc-bin-op fast-string<=? str1 (cons str2 strs)))
+    (define (string>? str1 str2 . strs)  (Cyc-bin-op fast-string>? str1 (cons str2 strs)))
+    (define (string>=? str1 str2 . strs) (Cyc-bin-op fast-string>=? str1 (cons str2 strs)))
 
-;    ; TODO: generalize to multiple arguments: (define (string<? str1 str2 . strs)
-    ;(define (string=? str1 str2 . strs)  (Cyc-bin-op fast-string=? str1 (cons str2 strs)))
-    (define (string=? str1 str2)  (equal? (string-cmp str1 str2) 0))
-    (define (string<? str1 str2)  (<  (string-cmp str1 str2) 0))
-    (define (string<=? str1 str2) (<= (string-cmp str1 str2) 0))
-    (define (string>? str1 str2)  (>  (string-cmp str1 str2) 0))
-    (define (string>=? str1 str2) (>= (string-cmp str1 str2) 0))
     (define (fast-string=? str1 str2)  (equal? (string-cmp str1 str2) 0))
     (define (fast-string<? str1 str2)  (<  (string-cmp str1 str2) 0))
     (define (fast-string<=? str1 str2) (<= (string-cmp str1 str2) 0))