*** browse-url.el.~1.56.~	2007-03-26 07:29:08.000000000 +1000
--- browse-url.el	2007-03-26 07:30:30.000000000 +1000
***************
*** 766,772 ****
      ;; which may not even exist any more.
      (if (stringp (frame-parameter (selected-frame) 'display))
          (setenv "DISPLAY" (frame-parameter (selected-frame) 'display)))
!     (if (functionp browse-url-browser-function)
          (apply browse-url-browser-function url args)
        ;; The `function' can be an alist; look down it for first match
        ;; and apply the function (which might be a lambda).
--- 766,775 ----
      ;; which may not even exist any more.
      (if (stringp (frame-parameter (selected-frame) 'display))
          (setenv "DISPLAY" (frame-parameter (selected-frame) 'display)))
!     (if (or (functionp browse-url-browser-function)
!             ;; let apply throw the error on a symbol which is not a
!             ;; function, its error message is more helpful than dolist
!             (symbolp browse-url-browser-function))
          (apply browse-url-browser-function url args)
        ;; The `function' can be an alist; look down it for first match
        ;; and apply the function (which might be a lambda).