--- circe.el.orig	2008-11-17 01:41:13.000000000 +0100
+++ circe.el	2008-11-17 01:54:03.000000000 +0100
@@ -555,6 +555,8 @@
 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))
   (let* ((buffer-name (format "%s:%s" host service))
          (server-buffer (generate-new-buffer buffer-name)))
     (with-current-buffer server-buffer