diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs
index 8e34b7b9..9e5ce0c2 100644
--- a/src/perl/ui/Formats.xs
+++ b/src/perl/ui/Formats.xs
@@ -137,3 +137,11 @@ print(dest, str)
 	char *str
 CODE:
 	printtext_dest(dest, "%s", str);
+
+void
+set_level(dest, level)
+	Irssi::UI::TextDest dest
+	int level
+CODE:
+	dest->level = level;
+