diff --git a/src/mailman.scm b/src/mailman.scm
index 7187c55..3803822 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -91,6 +91,7 @@
  (define (load-mailman-lists)
    (with-progress%
     #t "Mailman"
+    (progress%-advance 0)
     (let* ((lists (list-mailman-lists))
 	   (total (length lists)))
       (let loop ((lsts lists)
@@ -99,7 +100,9 @@
 	(if (null? lsts)
 	    (let ()
 	      (progress%-advance 1)
-	      (reverse res))
+	      ;; Will be prepended, therefore reversing result is a
+	      ;; bad idea!
+	      res)
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)