Index: /trunk/source/library/leaks.lisp
===================================================================
--- /trunk/source/library/leaks.lisp	(revision 13195)
+++ /trunk/source/library/leaks.lisp	(revision 13196)
@@ -272,5 +272,5 @@
         (format t "~&~A" i))
       (format t "~&Freed but not malloced:~%~{~A~%~}" frees)
-      (format t "~&total-malloc-not-freed: ~~A ~A free not malloc: ~A"
+      (format t "~&total-malloc-not-freed: ~A ~A free not malloc: ~A"
               (/ malloc-sum 1024.0)
               (length mallocs)