*** man.el	Tue Jan 23 07:40:06 2007
--- man.el	Fri Mar 23 09:54:48 2007
***************
*** 628,634 ****
      (setq Man-support-local-filenames
            (with-temp-buffer
              (and (equal (condition-case nil
!                             (call-process manual-program nil t nil "--help")
                            (error nil))
                          0)
                   (progn
--- 628,639 ----
      (setq Man-support-local-filenames
            (with-temp-buffer
              (and (equal (condition-case nil
! 			    (let ((default-directory
! 				    (if (and (file-directory-p default-directory)
! 					     (file-readable-p default-directory))
! 					default-directory
! 				      (expand-file-name "~/"))))
! 			      (call-process manual-program nil t nil "--help"))
                            (error nil))
                          0)
                   (progn