diff --git a/tests/gpgme/wrap.scm b/tests/gpgme/wrap.scm
index 4c96a09ab..eb416f499 100644
--- a/tests/gpgme/wrap.scm
+++ b/tests/gpgme/wrap.scm
@@ -53,7 +53,7 @@
 
 (let ((name (basename (car executable))))
   (cond
-   ((string=? "t-keylist" name)
+   ((string=? (qualify "t-keylist") name)
     ;; This test assumes that 't-import' imported a key.
     (log "Importing extra key...")
     (call-check `(,@GPG --yes --import ,(in-srcdir "pubkey-1.asc"))))))