*** /tmp/ediffZ4hAwi	2021-01-12 16:00:49.593081437 +0100
--- /home/albinus/src/emacs/lisp/progmodes/compile.el	2021-01-12 15:52:02.111270252 +0100
***************
*** 3041,3047 ****
  	    ;; Get the specified directory from FILE.
  	    (spec-directory
               (if (cdr file)
! 		 (file-truename (concat comint-file-name-prefix (cdr file))))))

  	;; Check for a comint-file-name-prefix and prepend it if appropriate.
  	;; (This is very useful for compilation-minor-mode in an rlogin-mode
--- 3041,3052 ----
  	    ;; Get the specified directory from FILE.
  	    (spec-directory
               (if (cdr file)
!                  ;; This function is active in `compilation-filter'.
!                  ;; There could be problems to call `file-truename'
!                  ;; for remote compilation processes.
! 		 (if (file-remote-p default-directory)
! 		     (concat comint-file-name-prefix (cdr file))
! 		   (file-truename (concat comint-file-name-prefix (cdr file)))))))

  	;; Check for a comint-file-name-prefix and prepend it if appropriate.
  	;; (This is very useful for compilation-minor-mode in an rlogin-mode