*** help-fns.el.~1.123.~	2008-07-28 15:19:09.000000000 +0200
--- help-fns.el	2008-08-11 17:49:09.375000000 +0200
***************
*** 225,234 ****
        (let ((libname (file-name-nondirectory file)))
  	;; Now convert that back to a file name and see if we get
  	;; the original one.  If so, they are equivalent.
! 	(if (equal file (locate-file libname load-path '("")))
! 	    (if (string-match "[.]elc\\'" libname)
! 		(substring libname 0 -1)
! 	      libname)
  	  file))))
  
  (defun find-source-lisp-file (file-name)
--- 225,233 ----
        (let ((libname (file-name-nondirectory file)))
  	;; Now convert that back to a file name and see if we get
  	;; the original one.  If so, they are equivalent.
! 	(if (and (equal file (locate-file libname load-path '("")))
! 		 (string-match "[.]elc\\'" libname))
! 	    (substring libname 0 -1)
  	  file))))
  
  (defun find-source-lisp-file (file-name)