--- rcompile.el.orig	2006-04-28 18:33:56.000000000 -0700
+++ rcompile.el	2006-04-28 18:33:09.000000000 -0700
@@ -155,8 +155,12 @@
          (setq remote-compile-user user))
         ((null remote-compile-user)
          (setq remote-compile-user (user-login-name))))
-  (let* ((parsed (and (featurep 'ange-ftp)
-                      (ange-ftp-ftp-name default-directory)))
+  (let* ((parsed (or
+		  (and (featurep 'ange-ftp)
+		       (ange-ftp-ftp-name default-directory))
+		  (and (featurep 'tramp)
+		       (list nil nil (with-parsed-tramp-file-name
+					 default-directory nil localname)))))
          (compile-command
           (format "%s %s -l %s \"(%scd %s; %s)\""
 		  remote-shell-program