diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 5aa63f4b0..f65c4c773 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -802,7 +802,7 @@
     (let lp ((l list))
       (if (null? l)
 	'()
-	(if (l= (car l) x)
+	(if (l= x (car l))
 	  (lp (cdr l))
 	  (cons (car l) (lp (cdr l))))))))