diff --git a/lisp/server.el b/lisp/server.el
index d84f17bdfe5..cb9d20bcadb 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -1205,7 +1205,7 @@ The following commands are accepted by the client:
   ;; First things first: let's check the authentication.
   ;; It is important that we strip the trailing space or newline
   ;; character in order that it does not appear, to the code below,
-  ;; there there is a zero-length argument there (bug#79889).
+  ;; that there is a zero-length argument there (bug#79889).
   (unless (process-get proc :authenticated)
     (if (and (string-match "-auth \\([!-~]+\\)[ \n]?" string)
 	     (equal (match-string 1 string) (process-get proc :auth-key)))