diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el
index ca50b18cf..cd7b78c2b 100644
--- a/contrib/lisp/ox-groff.el
+++ b/contrib/lisp/ox-groff.el
@@ -1949,7 +1949,7 @@ Return PDF file name or an error if it couldn't be produced."
 	  ;; Collect standard errors from output buffer.
 	  (setq errors (org-groff-collect-errors outbuf))))
        (t (error "No valid command to process to PDF")))
-      (let ((pdffile (concat out-dir base-name ".pdf")))
+      (let ((pdffile (concat (file-name-sans-extension full-name) ".pdf")))
 	;; Check for process failure.  Provide collected errors if
 	;; possible.
 	(if (not (file-exists-p pdffile))
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index 41cf1d0d7..f9f188539 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2892,7 +2892,7 @@ Return PDF file name or an error if it couldn't be produced."
 	  ;; Collect standard errors from output buffer.
 	  (setq errors (and (not snippet) (org-latex--collect-errors outbuf)))))
        (t (error "No valid command to process to PDF")))
-      (let ((pdffile (concat out-dir base-name ".pdf")))
+      (let ((pdffile (concat (file-name-sans-extension full-name) ".pdf")))
 	;; Check for process failure.  Provide collected errors if
 	;; possible.
 	(if (not (file-exists-p pdffile))
diff --git a/lisp/ox-man.el b/lisp/ox-man.el
index 4a5add893..55a79f76b 100644
--- a/lisp/ox-man.el
+++ b/lisp/ox-man.el
@@ -1233,7 +1233,7 @@ Return PDF file name or an error if it couldn't be produced."
 	  ;; Collect standard errors from output buffer.
 	  (setq errors (org-man-collect-errors outbuf))))
        (t (error "No valid command to process to PDF")))
-      (let ((pdffile (concat out-dir base-name ".pdf")))
+      (let ((pdffile (concat (file-name-sans-extension full-name) ".pdf")))
 	;; Check for process failure.  Provide collected errors if
 	;; possible.
 	(if (not (file-exists-p pdffile))
diff --git a/lisp/ox-texinfo.el b/lisp/ox-texinfo.el
index b5663240a..bca49e3d3 100644
--- a/lisp/ox-texinfo.el
+++ b/lisp/ox-texinfo.el
@@ -1827,7 +1827,7 @@ Return INFO file name or an error if it couldn't be produced."
 	  ;; Collect standard errors from output buffer.
 	  (setq errors (org-texinfo-collect-errors outbuf))))
        (t (error "No valid command to process to Info")))
-      (let ((infofile (concat out-dir base-name ".info")))
+      (let ((infofile (concat (file-name-sans-extension full-name) ".info")))
 	;; Check for process failure.  Provide collected errors if
 	;; possible.
 	(if (not (file-exists-p infofile))