diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 821f20e2f22..510cee727f2 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -567,7 +567,7 @@ command name."
       (_ #t)))
 
   (match (scandir (string-append profile "/bin") not-dot?)
-    (() #f)
+    ((or #f ()) #f)
     (available
      (match command
        ((executable _ ...)