0.9.4.84:

[sbcl.git] / src / code / target-misc.lisp

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 8363d7f..a641538 100644 (file)
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -53,7 +53,7 @@
     (#.sb!vm:closure-header-widetag
      (%closure-fun function))
     (#.sb!vm:funcallable-instance-header-widetag
-     (funcallable-instance-fun function))))
+     (%fun-fun (funcallable-instance-fun function)))))
 
 (defun %closure-values (object)
   (declare (function object))