Index: /branches/working-0711/ccl/lib/misc.lisp
===================================================================
--- /branches/working-0711/ccl/lib/misc.lisp	(revision 13466)
+++ /branches/working-0711/ccl/lib/misc.lisp	(revision 13467)
@@ -1001,5 +1001,7 @@
                           (class (class-of (if (eql typecode target::subtag-slot-vector)
                                              (uvref thing slot-vector.instance)
-                                             thing)))
+                                             (if (eql typecode target::subtag-function)
+                                               (function-vector-to-function thing)
+                                               thing))))
                           (index (or (gethash class map)
                                      (let ((count (hash-table-count map)))