diff --git a/test-suite/tests/vlist.test b/test-suite/tests/vlist.test
index d939284c1..d9bbbebce 100644
--- a/test-suite/tests/vlist.test
+++ b/test-suite/tests/vlist.test
@@ -220,11 +220,11 @@
       (and (fold (lambda (k v result)
                    (and result
                         (equal? (cons k v)
-                                (vhash-assq k vh))))
+                                (vhash-assoc k vh))))
                  #t
                  keys
                  values)
-           (not (vhash-assq 'x vh)))))
+           (not (vhash-assoc 'x vh)))))
 
   (pass-if "vhash as vlist"
     (let* ((keys   '(a b c d e f g h i))