diff --git a/src/ChangeLog b/src/ChangeLog
index 3360ca812208783ceb54a3d3d65ca47fab4caf2b..473acfdd2deed9c03b7517c1104444a655c5649a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2005-02-14  David Byers  <byers@lysator.liu.se>
 
+	Fix bug 1511:
+	* commands1.el (lyskom-combine-username): Downcase hostnames.
+
 	Fixed bug 1520:
 	* lyskom-buttons.el (lyskom-button-menu): Pass filter to functions
 	that build menus.
diff --git a/src/commands1.el b/src/commands1.el
index 7076873aa1921b3b060c413cf861ce68e346de1d..e2c20643868e8cfefbf8ea90e5016bc7cd0c355f 100644
--- a/src/commands1.el
+++ b/src/commands1.el
@@ -3240,9 +3240,10 @@ prefix argument \(C-u -), list all sessions."
 (defun lyskom-combine-username (username identname hostname)
   "Return a description of from where a user is logged in."
   ;; Ignore ident info for now
+  (setq hostname (downcase hostname))
   (if (string-match "\\(.*\\)%\\(.*\\)" username)
       (let ((user (substring username (match-beginning 1) (match-end 1)))
-	    (uhost (substring username (match-beginning 2) (match-end 2))))
+	    (uhost (downcase (substring username (match-beginning 2) (match-end 2)))))
 	(if (lyskom-string= uhost hostname)
 	    (concat user "@" hostname)
 	  (concat username "@" hostname)))