Index: /trunk/ccl/lib/describe.lisp
===================================================================
--- /trunk/ccl/lib/describe.lisp	(revision 5942)
+++ /trunk/ccl/lib/describe.lisp	(revision 5943)
@@ -515,5 +515,7 @@
   (let* ((instance (inspector-object i))
          (class (class-of instance))
-         (wrapper (ccl::standard-object-p instance))
+         (wrapper (or (ccl::standard-object-p instance)
+                      (if (typep instance 'ccl::funcallable-standard-object)
+                        (ccl::gf.instance.class-wrapper instance))))
 	 (instance-start 2))
     (if (< n instance-start)