--- a/lisp/finder.el	Mon Aug 13 11:28:16 2007 +0200
+++ b/lisp/finder.el	Mon Aug 13 11:29:08 2007 +0200
@@ -285,8 +285,12 @@
       found)))
 
 (defun finder-commentary (file)
-  (interactive)
-  (let* ((str (lm-commentary (finder-find-library file))))
+  "Display FILE's commentary section.
+FILE should be in a form suitable for passing to `locate-library'."
+  (interactive "sLibrary name: ")
+  (let* ((str (lm-commentary (or (finder-find-library file)
+				 (finder-find-library (concat file ".el"))
+				 (error "Can't find library %s" file)))))
     (if (null str)
 	(error "Can't find any Commentary section"))
     (pop-to-buffer "*Finder*")