diff --git a/lib/API/IRC.pm b/lib/API/IRC.pm
index 40959dd..2da00fe 100644
--- a/lib/API/IRC.pm
+++ b/lib/API/IRC.pm
@@ -48,9 +48,9 @@ sub ban
 # Join a channel.
 sub cjoin 
 {
-	my ($svr, $chan) = @_;
+	my ($svr, $chan, $key) = @_;
 	
-	Auto::socksnd($svr, "JOIN $chan");
+	Auto::socksnd($svr, "JOIN ".((defined $key) ? "$chan" : "$chan $key"));
 	
 	return 1;
 }