--- libprelude-1.0.1/bindings/low-level/perl/Prelude.c~	2012-06-05 11:44:18.000000000 +0200
+++ libprelude-1.0.1/bindings/low-level/perl/Prelude.c	2013-06-12 19:57:24.385066811 +0200
@@ -1803,7 +1803,7 @@
 	char buf[1024];
 
 	snprintf(buf, sizeof(buf), "Prelude error - %s: %s", prelude_strsource(error), prelude_strerror(error));
-	croak(buf);
+	croak("%s", buf);
 }