Index: /trunk/ccl/lib/level-2.lisp
===================================================================
--- /trunk/ccl/lib/level-2.lisp	(revision 234)
+++ /trunk/ccl/lib/level-2.lisp	(revision 235)
@@ -405,5 +405,6 @@
 	       (%set-double-float p o new))
   (%eval-redef %set-single-float (p o &optional (new (prog1 o (setq o 0))))
-	       (%set-single-float p o new))  
+	       (%set-single-float p o new))
+  (%eval-redef assq (item list))
 )