diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index 524643dff43372d7de0f92ae6b8c4744eca6d6ec..7ec902a7dd61b9415a2cafbd9d692650bac93e53 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -473,6 +473,6 @@
 #+os-unix
 (progn
   (DBG "Checking CMUCL user-homedir-pathname issue.")
-  (assert (pathname-equal
-           (uiop/common-lisp:user-homedir-pathname)
-           (getenv-pathname "HOME" :want-directory t))))
+  (assert-pathname-equal
+   (uiop/common-lisp:user-homedir-pathname)
+   (getenv-pathname "HOME" :want-directory t)))