diff --git a/lisp/proced.el b/lisp/proced.el
index 51e6f3aca4d..e68383df10e 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1184,7 +1184,7 @@ Return the filtered process list."
             ( ;; apply predicate to each list of attributes
              (eq (car filter) 'function)
              (dolist (process process-alist)
-               (if (funcall (car filter) (cdr process))
+               (if (funcall (cdr filter) (cdr process))
                    (push process new-alist))))
             (t ;; apply predicate to specified attribute
              (let* ((cdrfilter (cdr filter))