Index: /trunk/source/lib/misc.lisp
===================================================================
--- /trunk/source/lib/misc.lisp	(revision 12935)
+++ /trunk/source/lib/misc.lisp	(revision 12936)
@@ -964,17 +964,25 @@
   (let* ((total-cons-size  (* nconses target::cons.size))
          (total-vector-size 0)
-         (total-physical-vector-size 0))
-    (format out "~&Object type~40tCount~48tTotal Size in Bytes~70tTotal Size")
-    (format out "~&CONS~34t~12d~46t~16d~16d" nconses total-cons-size total-cons-size)
+         (total-physical-vector-size 0)
+         (total-size 0))
+    (format out "~&Object type~42tCount~50tTotal Size in Bytes~72tTotal Size~82t % of Heap")
+    (dotimes( i (length nvectors))
+      (incf total-vector-size (aref vector-sizes i))
+      (incf total-physical-vector-size (aref vector-physical-sizes i)))
+    (setq total-size (+ total-cons-size total-physical-vector-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))
-             (sizes (aref vector-sizes i))
-             (psizes (aref vector-physical-sizes i)))
+      (let ((count (aref nvectors i))
+            (sizes (aref vector-sizes i))
+            (psizes (aref vector-physical-sizes i)))
         (unless (zerop count)
-          (incf total-vector-size sizes)
-          (incf total-physical-vector-size psizes)
-          (format out "~&~a~34t~12d~46t~16d~16d" (aref *heap-utilization-vector-type-names* i)  count sizes psizes))))
-    (format out "~&   Total sizes: ~47t~16d~16d" (+ total-cons-size total-vector-size) (+ total-cons-size total-physical-vector-size))))
-                            
+          (format out "~&~a~36t~12d~48t~16d~16d~8,2f%"
+                  (aref *heap-utilization-vector-type-names* i)
+                  count sizes psizes
+                  (* 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