--- srfi-1.scm.~1.8.2.20.~	2004-12-06 11:35:47.000000000 +1100
+++ srfi-1.scm	2005-01-24 07:43:25.000000000 +1100
@@ -961,10 +961,10 @@
 	  (and (every (lambda (el) (member el (car r) =)) f)
 	       (lp (car r) (cdr r)))))))
 
-(define (lset= = list1 . rest)
+(define (lset= = . rest)
   (if (null? rest)
     #t
-    (let lp ((f list1) (r rest))
+    (let lp ((f (car rest)) (r (cdr rest)))
       (or (null? r)
 	  (and (every (lambda (el) (member el (car r) =)) f)
 	       (every (lambda (el) (member el f =)) (car r))