diff --git a/lisp/woman.el b/lisp/woman.el
index d4f7e8c0db7..0a9f3665eb6 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1523,7 +1523,7 @@ Also make each path-info component into a list.
 	  (mapc 'woman-dired-define-key woman-dired-keys)
 	(woman-dired-define-key-maybe "w")
 	(woman-dired-define-key-maybe "W")))
-  (define-key-after (lookup-key dired-mode-map [menu-bar immediate])
+  (define-key-after (lookup-key dired-mode-map [menu-bar Immediate])
     [woman] '("Read Man Page (WoMan)" . woman-dired-find-file) 'view))
 
 (if (featurep 'dired)