diff --git a/src/mailman.scm b/src/mailman.scm
index 8f362b0..ce7d8d5 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -97,7 +97,9 @@
 		 (res '())
 		 (idx 0))
 	(if (null? lsts)
-	    res
+	    (let ()
+	      (progress%-advance 1)
+	      (reverse res))
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)