diff --git a/src/top/utop.el b/src/top/utop.el
index fb5294d..b36a2c2 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -851,7 +851,8 @@ defaults to 0."
              (version (cdr package)))
         (push (list package (vector name version))
               tabulated-list-entries))
-      (setq packages (cdr packages)))))
+      (setq packages (cdr packages))))
+  (setq tabulated-list-entries (nreverse tabulated-list-entries)))
 
 (defun utop-package-printer (id cols)
   "Print one findlib package entry."