=== modified file 'lisp/progmodes/grep.el'
--- lisp/progmodes/grep.el	2011-02-10 19:13:31 +0000
+++ lisp/progmodes/grep.el	2011-08-31 21:35:14 +0000
@@ -958,7 +958,7 @@
 		       (and grep-find-ignored-directories
 			    (concat (shell-quote-argument "(")
 				    ;; we should use shell-quote-argument here
-				    " -path "
+				    " -type d -path "
 				    (mapconcat
 				     #'(lambda (ignore)
 					 (cond ((stringp ignore)