--- cur/grep.el	2007-04-08 11:08:48.000000000 +0900
+++ my/grep.el	2008-07-02 11:19:47.000000000 +0900
@@ -566,7 +566,7 @@ easily repeat a find command."
      (grep-compute-defaults)
      (if grep-find-command
 	 (list (read-from-minibuffer "Run find (like this): "
-				     grep-find-command nil nil
+				     (concat grep-find-command (thing-at-point 'symbol)) nil nil
                                      'grep-find-history))
        ;; No default was set
        (read-string