2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 9708b7cc..0f6ef823 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2015-02-06  Kaz Kylheku  <kaz@kylheku.com>
 
+	* unwind.c (uw_throw): Put a txr: prefix on the unhandled
+	exception in early initialization message.
+
+2015-02-06  Kaz Kylheku  <kaz@kylheku.com>
+
 	Slight internal representation change of string-only exceptions.
 
 	One upshot of all this is that (throw 'foo "msg") now
diff --git a/unwind.c b/unwind.c
index 3a8324f0..7e35c937 100644
--- a/unwind.c
+++ b/unwind.c
@@ -281,7 +281,7 @@ val uw_throw(val sym, val args)
 
   if (ex == 0) {
     if (std_error == 0) {
-      fprintf(stderr, "unhandled exception in early initialization\n");
+      fprintf(stderr, "txr: unhandled exception in early initialization\n");
       abort();
     }