diff --git a/emacs.el b/emacs.el
index 3efe4b4..418098c 100644
--- a/emacs.el
+++ b/emacs.el
@@ -315,10 +315,11 @@ found, otherwise returns nil."
                "screen")
     (setq terminal-title-format
           (if (getenv "SSH_CONNECTION")
-              '("em:"
-                user-login-name
+              `("em:"
+                ,user-login-name
                 "@"
-                system-name
+                ,(car (split-string system-name
+                                    "\\."))
                 ":"
                 (file-name-nondirectory (directory-file-name
                                          default-directory)))