diff --git a/uiop/image.lisp b/uiop/image.lisp
index f3842a9205ac128ae407d71dab3417848e855f3b..60604862d8dc2aaae1fa7ca9bf6bd5d8e856d94d 100644
--- a/uiop/image.lisp
+++ b/uiop/image.lisp
@@ -105,7 +105,9 @@ This is designed to abstract away the implementation specific quit forms."
         :from-read-eval-print-loop nil
         :count (or count t)
         :all t))
-    #+(or clasp ecl mkcl)
+    #+clasp
+    (clasp-debug:print-backtrace :stream stream :count count)
+    #+(or ecl mkcl)
     (let* ((top (si:ihs-top))
            (repeats (if count (min top count) top))
            (backtrace (loop :for ihs :from 0 :below top