1 files changed, 1 insertions, 1 deletions
diff --git a/unwind.c b/unwind.c
index efc824ed..787dcd62 100644
--- a/unwind.c
+++ b/unwind.c
@@ -121,7 +121,7 @@ static void uw_unwind_to_exit_point(void)
     val args = unhandled_ex.ca.args;
 
     if (opt_loglevel >= 1) {
-      val prefix = format(nil, lit("~a:"), prog_string, nao);
+      val prefix = scat2(prog_string, lit(":"));
 
       flush_stream(std_output);
       format(std_error, lit("~a unhandled exception of type ~a:\n"),