diff --git a/test/script-support.lisp b/test/script-support.lisp
index 4b822573d3f7f0473b380c2a8fc14b464d06312b..f835b91afcf849b8811dff8d782cad5d47ad7026 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -553,7 +553,7 @@ is bound, write a message and exit on an error.  If
 
 (defun registry ()
   (let ((sr (asymval :*source-registry*)))
-    (when sr (sort (hta sr) 'string< :key 'car))))
+    (when sr (sort (hash-table-alist sr) 'string< :key 'car))))
 
 (defun configure-asdf ()
   (format t "Configuring ASDF~%")