diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 7b046fe0c7..6e0455a7a0 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -162,9 +162,8 @@ (define (url system)
           ,system))
 
     `(div "status: "
-          ,(url "x86_64-linux") " "
-          ,(url "i686-linux") " "
-          ,(url "mips64el-linux")))
+          ,(list-join (map url (package-transitive-supported-systems package))
+                      " ")))
 
   (define (package-logo name)
     (and=> (lookup-gnu-package name)