diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 7127d73f7..4e51e9281 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -886,7 +886,6 @@ for key @var{k}, then invoke @var{thunk}."
               (when name
                 (format port "In procedure ~a:\n" name))))
 
-          (print-location frame port)
           (catch #t
             (lambda ()
               (let ((printer (assq-ref exception-printers key)))