diff --git a/vm/shell.scm b/vm/shell.scm
index bb5ea0508..d3c09fe47 100644
--- a/vm/shell.scm
+++ b/vm/shell.scm
@@ -166,7 +166,7 @@ certain conditions.  There is absolutely no warranty for Guile VM.\n")
 	  (loop (cdr list) (1- n))))
     list)
   (let* ((prog (frame-program frame))
-	 (name (or (program-name prog) prog)))
+	 (name (or (name prog) prog)))
     (cons name (reverse! (vector->list (frame-variables frame))))))
 
 (define (vm-trace-apply vm)