diff --git a/collects/setup/getinfo.rkt b/collects/setup/getinfo.rkt
index c4ceea59f5..6b03ae72ec 100644
--- a/collects/setup/getinfo.rkt
+++ b/collects/setup/getinfo.rkt
@@ -215,5 +215,5 @@
           [syms (listof symbol?)]))
  (find-relevant-directory-records
   (->* [(listof symbol?)]
-       [(lambda (x) (memq x '(preferred all-available)))]
+       [(or/c 'preferred 'all-available)]
        (listof directory-record?))))