Index: /branches/ide-1.0/ccl/lib/describe.lisp
===================================================================
--- /branches/ide-1.0/ccl/lib/describe.lisp	(revision 6719)
+++ /branches/ide-1.0/ccl/lib/describe.lisp	(revision 6720)
@@ -1556,5 +1556,5 @@
   (let* ((frame (svref (addresses f) n))
          (context (context f)))
-    (multiple-value-bind (lfun pc) (ccl::%cfp-lfun frame)
+    (multiple-value-bind (lfun pc) (ccl::cfp-lfun frame)
       (multiple-value-bind (args locals) (ccl::arguments-and-locals context frame lfun pc)
         (list (ccl::arglist-from-map lfun) args locals)))))