--- circe.el	2008-11-23 11:07:33.000000000 +0100
+++ circe-add-default-port.el	2008-11-23 12:02:18.000000000 +0100
@@ -554,9 +554,9 @@
 NICK is the nick name to use (defaults to `circe-default-nick')
 USER is the user name to use (defaults to `circe-default-user')
 REALNAME is the real name to use (defaults to `circe-default-realname')"
-  (interactive "sHost: \nsPort: ")
-  (when (equal service "")
-    (setq service 6667))
+  (interactive
+   (list (read-string "Host: ")
+         (read-string "Port (default 6667): " nil nil "6667")))
   (let* ((buffer-name (format "%s:%s" host service))
          (server-buffer (generate-new-buffer buffer-name)))
     (with-current-buffer server-buffer