diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 8014fa77c..70d7d6341 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -93,7 +93,7 @@
 (define (frame-call-representation frame)
   (define (abbrev x)
     (cond ((list? x)
-           (if (> (length x) 3)
+           (if (> (length x) 4)
                (list (abbrev (car x)) (abbrev (cadr x)) '...)
                (map abbrev x)))
 	  ((pair? x)
@@ -124,7 +124,7 @@
   (let ((prog (frame-program frame))
 	(link (frame-dynamic-link frame)))
     (or (object-property prog 'name)
-        (and (heap-frame? link)
+        (and (heap-frame? link) (frame-address link)
              (frame-object-name link (1- (frame-address link)) prog))
 	(hash-fold (lambda (s v d) (if (eq? prog (variable-ref v)) s d))
 		   prog (module-obarray (current-module))))))