diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index feda8943be5..5d463bc0062 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -229,7 +229,7 @@ value is the default binding of the variable."
              (cdr result)
            ,variable)))))
 
-(dolist (elt (all-completions "tramp-compat-" obarray 'functionp))
+(dolist (elt (all-completions "tramp-compat-" obarray #'functionp))
   (function-put (intern elt) 'tramp-suppress-trace t))
 
 (add-hook 'tramp-unload-hook