diff --git a/src/perl/common/Channel.xs b/src/perl/common/Channel.xs
index f07f2049..cfcf72a2 100644
--- a/src/perl/common/Channel.xs
+++ b/src/perl/common/Channel.xs
@@ -45,7 +45,7 @@ channel_create(server, name, automatic)
 	char *name
 	int automatic
 CODE:
-	channel_create(server->chat_type, server, name, automatic);
+	CHAT_PROTOCOL(server)->channel_create(server, name, automatic);
 
 Irssi::Channel
 channel_find(server, name)
diff --git a/src/perl/common/module.h b/src/perl/common/module.h
index 4920e1d0..e4843174 100644
--- a/src/perl/common/module.h
+++ b/src/perl/common/module.h
@@ -14,6 +14,7 @@
 #include "special-vars.h"
 #include "window-item-def.h"
 
+#include "chat-protocols.h"
 #include "chatnets.h"
 #include "servers.h"
 #include "servers-reconnect.h"