diff --git a/lisp/tramp.el b/lisp/tramp.el
index 8a5c9617..c515e305 100644
--- a/lisp/tramp.el
+++ b/lisp/tramp.el
@@ -6732,9 +6733,9 @@ will be the process to signal.
 SIGCODE may be an integer, or a symbol whose name is a signal name."
   (let (pid vec)
     (cond
-     ((processp process)
-      (setq pid (process-get process 'remote-pid)
-            vec (process-get process 'tramp-vector)))
+     ((or (processp process) (stringp process))
+      (setq pid (process-get (get-process process) 'remote-pid)
+            vec (process-get (get-process process) 'tramp-vector)))
      ((numberp process)
       (setq pid process
             vec (and (stringp remote) (tramp-dissect-file-name remote))))