diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
index 322be79c..afe523c4 100644
--- a/src/perl/ui/Window.xs
+++ b/src/perl/ui/Window.xs
@@ -107,7 +107,7 @@ CODE:
 	perl_command(cmd, server, NULL);
 
 void
-print(server, channel, str, level)
+print(server, channel, str, level=MSGLEVEL_CLIENTNOTICE)
 	Irssi::Server server
 	char *channel
 	char *str