Index: /branches/working-0711/ccl/lib/misc.lisp
===================================================================
--- /branches/working-0711/ccl/lib/misc.lisp	(revision 12934)
+++ /branches/working-0711/ccl/lib/misc.lisp	(revision 12935)
@@ -972,6 +972,7 @@
       (incf total-physical-vector-size (aref vector-physical-sizes i)))
     (setq total-size (+ total-cons-size total-physical-vector-size))
-    (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
-            (* 100 (/ total-cons-size total-size)))
+    (unless (zerop nconses)
+      (format out "~&CONS~36t~12d~48t~16d~16d~8,2f%" nconses total-cons-size total-cons-size
+              (* 100 (/ total-cons-size total-size))))
     (dotimes (i (length nvectors))
       (let ((count (aref nvectors i))
@@ -984,5 +985,5 @@
                   (* 100.0 (/ psizes total-size))))))
     (format out "~&   Total sizes: ~49t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
-                            
+
 ;; The number of words to allocate for static conses when the user requests
 ;; one and we don't have any left over