diff --git a/lisp/server.el b/lisp/server.el
index 27fbe95b64b..abfd3d4d753 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1216,7 +1216,7 @@ The following commands are accepted by the client:
       ;; FIXME: Why do we wait 1s here but 5s in the other one?
       (run-with-timer 1 nil #'delete-process proc)
       ;; We return immediately.
-      (cl-return-from server--process-filter)))
+      (cl-return-from server--process-filter-1)))
   (let ((prev (process-get proc 'previous-string)))
     (when prev
       (setq string (concat prev string))