Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 259)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 260)
@@ -450,6 +450,6 @@
       (if pair
 	(if (eql item (car pair))
-	  (return pair)
-	  (report-bad-arg pair 'cons))))
+	  (return pair))
+	(report-bad-arg pair 'cons)))
     (assq item list)))