diff --git a/lisp/lpr.el b/lisp/lpr.el
index 122c9d6e295ed3a166b0fe3d4bbcbb5b7c92cac9..349561936427eee449bea88b473c86e6bca633b9 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -99,6 +99,10 @@ The variable `lpr-page-header-program' specifies the program to use.")
   ;; and it seems to annoying to do for that MIPS system.
   (let ((name (concat (buffer-name) " Emacs buffer"))
 	(title (concat (buffer-name) " Emacs buffer"))
+	;; On MS-DOS systems, make pipes use binary mode if the
+	;; original file is binary.
+	(binary-process-input buffer-file-type)
+	(binary-process-output buffer-file-type)
 	(width tab-width)
 	switch-string)
     (save-excursion