diff --git a/bundle.lisp b/bundle.lisp
index bde9574b1f32d98fd5c155a3b55044ecda6c7efa..43a1d1f7c795a8ad1c908fb9916f63e0b1615676 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -307,7 +307,7 @@ for all the linkable object files associated with the system or its dependencies
                        :when (funcall test f) :do (collect f))))))
 
   (defun pathname-type-equal-function (type)
-    #'(lambda (p) (equal (pathname-type p) type)))
+    #'(lambda (p) (equalp (pathname-type p) type)))
 
   (defmethod input-files ((o gather-op) (c system))
     (unless (eq (bundle-type o) :no-output-file)