--- a/lisp/w3/md5.el	Mon Aug 13 08:52:30 2007 +0200
+++ b/lisp/w3/md5.el	Mon Aug 13 08:52:56 2007 +0200
@@ -393,9 +393,9 @@
 		   (md5-encode (buffer-string))
 		   "")
 		(call-process-region (point-min) (point-max)
-				     (or shell-file-name "/bin/sh")
+				     shell-file-name
 				     t buffer nil
-				     "-c" md5-program)
+				     shell-command-switch md5-program)
 		;; MD5 digest is 32 chars long
 		;; mddriver adds a newline to make neaten output for tty
 		;; viewing, make sure we leave it behind.
@@ -404,5 +404,3 @@
       (and buffer (kill-buffer buffer) nil))))
 
 (provide 'md5)
-
-;;; md5.el ends here ----------------------------------------------------------