--- a/lisp/dired/dired.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/dired/dired.el	Mon Aug 13 08:46:35 2007 +0200
@@ -456,7 +456,8 @@
       ;; dired-readin's output, nothing else.  The hook can
       ;; successfully use dired functions (e.g. dired-get-filename)
       ;; as the subdir-alist has been built in dired-readin.
-      (run-hooks 'dired-after-readin-hook)
+      (let ((buffer-read-only nil))
+	(run-hooks 'dired-after-readin-hook))
       (goto-char (point-min))
       (dired-initial-position dirname))
     (set-buffer old-buf)
@@ -3107,7 +3108,7 @@
 			;; filenames are preceded by SPC, this makes
 			;; the search faster (e.g. for the filename "-"!).
 			(search-forward (concat " " base) boundary 'move))
-	      ;; Match could have BASE just as initial substring or
+	      ;; Match could have BASE just as initial substring
 	      ;; or in permission bits or date or
 	      ;; not be a proper filename at all:
 	      (if (equal base (dired-get-filename 'no-dir t))