diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index 889b10029..fb92ed71c 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -945,7 +945,7 @@
     (let lp ((a alist))
       (if (null? a)
 	'()
-	(if (k= (caar a) key)
+	(if (k= key (caar a))
 	  (lp (cdr a))
 	  (cons (car a) (lp (cdr a))))))))