Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 246)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 247)
@@ -452,5 +452,5 @@
 	  (return pair)
 	  (report-bad-arg pair 'cons))))
-    (assq pair list)))
+    (assq item list)))
 
 ; (assoc-test item list test-fn)