diff --git a/src/mailman.scm b/src/mailman.scm
index ce7d8d5..7187c55 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -103,7 +103,7 @@
 	    (let ((mln (car lsts)))
 	      (progress%-advance (/ idx total))
 	      (loop (cdr lsts)
-		    (cons res (load-mailman-list mln))
+		    (cons (load-mailman-list mln) res)
 		    (add1 idx))))))))
 
  ;; List of lists, returns the whole list record (including name)