diff --git a/ansi-tests/user-homedir-pathname.lsp b/ansi-tests/user-homedir-pathname.lsp
index 65d967488b4b685c844d7729db50fa1a6cc44190..624e1a3aee40497a0ba18bd603069b4cac777ab4 100644
--- a/ansi-tests/user-homedir-pathname.lsp
+++ b/ansi-tests/user-homedir-pathname.lsp
@@ -11,9 +11,12 @@
   t)
 
 (deftest user-homedir-pathname.2
-  (let ((pn (user-homedir-pathname)))
-    (notnot-mv (pathnamep pn)))
-  t)
+  (let* ((pn-list (multiple-value-list (user-homedir-pathname)))
+	 (pn (first pn-list)))
+    (values
+     (length pn-list)
+     (notnot-mv (pathnamep pn))))
+  1 t)
 
 (deftest user-homedir-pathname.3
   (let ((pn (user-homedir-pathname)))