--- /usr/share/emacs/site-lisp/tramp/tramp.el.orig	Mon Sep 30 01:10:14 2002
+++ /usr/share/emacs/site-lisp/tramp/tramp.el	Mon Sep 30 00:52:51 2002
@@ -2909,7 +2909,7 @@
   "Like `shell-command' for tramp files.
 This will break if COMMAND prints a newline, followed by the value of
 `tramp-end-of-output', followed by another newline."
-  (when (tramp-tramp-file-p default-directory)
+  (if (tramp-tramp-file-p default-directory)
     (with-parsed-tramp-file-name default-directory nil
       (when (tramp-ange-ftp-file-name-p multi-method method)
 	(let ((default-directory (tramp-make-ange-ftp-file-name
@@ -2956,13 +2956,13 @@
 	  (setq status (read (current-buffer))))
 	(unless (zerop (buffer-size))
 	  (pop-to-buffer output-buffer))
-	status)))
+	status))
   ;; The following is only executed if something strange was
   ;; happening.  Emit a helpful message and do it anyway.
   (message "tramp-handle-shell-command called with non-tramp directory: `%s'"
 	   default-directory)
   (tramp-run-real-handler 'shell-command
-			  (list command output-buffer error-buffer)))
+			  (list command output-buffer error-buffer))))
 
 ;; File Editing.