diff --git a/admin/syncdoc-type-hierarchy.el b/admin/syncdoc-type-hierarchy.el
index 56f2c30527e..ed827844d0b 100644
--- a/admin/syncdoc-type-hierarchy.el
+++ b/admin/syncdoc-type-hierarchy.el
@@ -97,7 +97,7 @@
             (lambda (x1 x2)
               (< (length (memq (car x2) syncdoc-all-types))
                  (length (memq (car x1) syncdoc-all-types)))))
-      (cl-loop for (type . children) in subtypes
+      (cl-loop for (type . children) in (reverse subtypes)
                do (insert "|" (symbol-name type) " |")
                do (cl-loop with x = 0
                            for child in children