diff --git a/modules/app/irc/autoload/settings.el b/modules/app/irc/autoload/settings.el
index 59615a760..5f88eb993 100644
--- a/modules/app/irc/autoload/settings.el
+++ b/modules/app/irc/autoload/settings.el
@@ -1,9 +1,17 @@
 ;;; app/irc/autoload/settings.el -*- lexical-binding: t; -*-
 
 ;;;###autodef
-(defun set-irc-server! (server letvars)
+(defun set-irc-server! (server plist)
   "Registers an irc SERVER for circe.
 
+SERVER can either be a name for the network (in which case you must specify a
+:host), or it may be the hostname itself, in which case it will be used as the
+:host.
+
 See `circe-network-options' for details."
   (after! circe
-    (push (cons server letvars) circe-network-options)))
+    (unless (plist-member plist :host)
+      (plist-put! plist :host server))
+    (setf (alist-get server circe-network-options
+                     nil nil #'equal)
+          plist)))