Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 787)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 788)
@@ -568,11 +568,10 @@
 
 (defun %last-fn-on-stack (&optional (number 0) (s (%get-frame-ptr)))
-  (let* ((fn nil)
-         (tcr (%current-tcr)))
+  (let* ((fn nil))
     (let ((p s))
       (tagbody
         (dotimes (i number)
           (declare (fixnum i))
-          (unless (setq p (parent-frame p tcr))
+          (unless (setq p (parent-frame p nil))
             (go done)))
         (if  p