diff --git a/lisp/man.el b/lisp/man.el
index 549dfd6d955..47301f02a2a 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -559,9 +559,12 @@ Otherwise, the value is whatever the function
 
 (defun Man-shell-file-name ()
   "Return a proper shell file name, respecting remote directories."
+  ;; It must be a Bourne-shell.  (Bug#75308, Bug#80212)
   (if (connection-local-p shell-file-name)
       (connection-local-value shell-file-name)
-    "/bin/sh"))
+    (if (memq system-type '(windows-nt ms-dos))
+        shell-file-name
+      "/bin/sh")))
 
 (defun Man-header-file-path ()
   "Return the C header file search path that Man should use.