Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 886)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 887)
@@ -33,5 +33,7 @@
     (cond ((eql typecode target::subtag-instance) (instance.slots instance))
 	  ((eql typecode target::subtag-macptr) (foreign-slots-vector instance))
-	  ((typep instance 'standard-generic-function) (gf.slots instance))
+	  ((or (typep instance 'standard-generic-function)
+               (typep instance 'funcallable-standard-object))
+           (gf.slots instance))
 	  (t  (error "Don't know how to find slots of ~s" instance)))))