diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el
index 90d89e87fba..59347ccc89a 100644
--- a/lisp/net/eudc-vars.el
+++ b/lisp/net/eudc-vars.el
@@ -283,6 +283,7 @@ If nil, query all servers available from `eudc-inline-expansion-servers'."
 					     (firstname . "First Name")
 					     (cn . "Full Name")
 					     (sn . "Surname")
+					     (name . "Surname")
 					     (givenname . "First Name")
 					     (ou . "Unit")
 					     (labeledurl . "URL")
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index fc35d6a0844..ca4e4c9f377 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -721,7 +721,7 @@ server for future sessions."
 (defun eudc-get-email (name &optional error)
   "Get the email field of NAME from the directory server.
 If ERROR is non-nil, report an error if there is none."
-  (interactive "sName: \np")
+  (interactive "sSurname: \np")
   (or eudc-server
       (call-interactively 'eudc-set-server))
   (let ((result (eudc-query (list (cons 'name name)) '(email)))
@@ -739,7 +739,7 @@ If ERROR is non-nil, report an error if there is none."
 (defun eudc-get-phone (name &optional error)
   "Get the phone field of NAME from the directory server.
 If ERROR is non-nil, report an error if there is none."
-  (interactive "sName: \np")
+  (interactive "sSurname: \np")
   (or eudc-server
       (call-interactively 'eudc-set-server))
   (let ((result (eudc-query (list (cons 'name name)) '(phone)))