--- src/alisp/alisp.c.str	2008-12-26 10:13:59.000000000 +0100
+++ src/alisp/alisp.c	2008-12-26 10:14:41.000000000 +0100
@@ -1708,7 +1708,7 @@
 			delete_tree(instance, p1);
 		p1 = eval(instance, car(p));
 		if (alisp_compare_type(p1, ALISP_OBJ_STRING))
-			snd_output_printf(instance->out, p1->value.s);
+			snd_output_printf(instance->out, "%s", p1->value.s);
 		else
 			princ_object(instance->out, p1);
 		n = cdr(p);