diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs
index cbee5a82..520c5bb8 100644
--- a/src/perl/ui/Window.xs
+++ b/src/perl/ui/Window.xs
@@ -101,7 +101,7 @@ command(server, cmd)
 	Irssi::Server server
 	char *cmd
 CODE:
-	perl_command(cmd, server, active_win->active);
+	perl_command(cmd, server, NULL);
 
 void
 print(server, channel, str, level)