diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index 273a360dfc..026a9e98e7 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -478,7 +478,8 @@ (define (->sexps pattern)
                    '()
                    (list (obsolete-package-sexp
                           name version entries))))
-             (map sexp-by-package packages))))))
+             (map sexp-by-package packages))))
+      (_ '())))
 
   ->sexps)
 
@@ -563,7 +564,8 @@ (define (->sexps pattern)
                (append-map (cut sexps-by-manifest-entry <>)
                            entries))
              (append-map (cut sexps-by-package <> output)
-                         packages))))))
+                         packages))))
+      (_ '())))
 
   ->sexps)
 
@@ -661,7 +663,7 @@ (define (find-generations profile search-type search-vals)
   "Find PROFILE's generations matching SEARCH-TYPE and SEARCH-VALS."
   (case search-type
     ((id)
-     (matching-generations profile (cut memq <> (car search-vals))))
+     (matching-generations profile (cut memq <> search-vals)))
     ((last)
      (last-generations profile (car search-vals)))
     ((all)