diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7628f28198..d23d65de93e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-18  Yann Hodique  <yann.hodique@gmail.com>  (tiny change)
+
+	* net/rcirc.el (rcirc): Use correct property names (Bug#3037).
+
 2009-04-18  Chong Yidong  <cyd@stupidchicken.com>
 
 	* thingatpt.el (thing-at-point-bounds-of-list-at-point): New
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index f63237f58ca..1f312843f08 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -375,16 +375,16 @@ If ARG is non-nil, instead prompt for connection parameters."
 	     (server-plist (cdr (assoc-string server rcirc-server-alist)))
 	     (port (read-string "IRC Port: "
 				(number-to-string
-				 (or (plist-get server-plist 'port)
+				 (or (plist-get server-plist :port)
 				     rcirc-default-port))))
 	     (nick (read-string "IRC Nick: "
-				(or (plist-get server-plist 'nick)
+				(or (plist-get server-plist :nick)
 				    rcirc-default-nick)))
 	     (channels (split-string
 			(read-string "IRC Channels: "
 				     (mapconcat 'identity
 						(plist-get server-plist
-							   'channels)
+							   :channels)
 						" "))
 			"[, ]+" t)))
 	(rcirc-connect server port nick rcirc-default-user-name