4 files changed, 14 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 46cd47d925..dd5eaa4e80 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Thu Jul  3 07:03:22 2008  Nobuyoshi Nakada  <[email protected]>
+
+	* error.c (rb_exc_new3): keeps the given string itself.
+
+	* eval.c (Init_Proc), gc.c (Init_GC): freeze messages of preallocated
+	  special exceptions also.
+
 Thu Jul  3 06:17:23 2008  Nobuyoshi Nakada  <[email protected]>
 
 	* eval.c (rb_longjmp): duplicate the thrown exception to set backtrace
diff --git a/error.c b/error.c
index af72126f8e..3b79ea0fa7 100644
--- a/error.c
+++ b/error.c
@@ -333,7 +333,7 @@ rb_exc_new3(etype, str)
     VALUE etype, str;
 {
     StringValue(str);
-    return rb_exc_new(etype, RSTRING(str)->ptr, RSTRING(str)->len);
+    return rb_funcall(etype, rb_intern("new"), 1, str);
 }
 
 /*
diff --git a/eval.c b/eval.c
index 2cff139387..245c082692 100644
--- a/eval.c
+++ b/eval.c
@@ -9992,13 +9992,15 @@ Init_Proc()
     rb_define_method(rb_eLocalJumpError, "reason", localjump_reason, 0);
 
     rb_global_variable(&exception_error);
-    exception_error = rb_exc_new2(rb_eFatal, "exception reentered");
+    exception_error = rb_exc_new3(rb_eFatal,
+				  rb_obj_freeze(rb_str_new2("exception reentered")));
     OBJ_TAINT(exception_error);
     OBJ_FREEZE(exception_error);
 
     rb_eSysStackError = rb_define_class("SystemStackError", rb_eStandardError);
     rb_global_variable(&sysstack_error);
-    sysstack_error = rb_exc_new2(rb_eSysStackError, "stack level too deep");
+    sysstack_error = rb_exc_new3(rb_eSysStackError,
+				 rb_obj_freeze(rb_str_new2("stack level too deep")));
     OBJ_TAINT(sysstack_error);
     OBJ_FREEZE(sysstack_error);
 
diff --git a/gc.c b/gc.c
index 9cec529e6b..8a336222ff 100644
--- a/gc.c
+++ b/gc.c
@@ -2125,7 +2125,8 @@ Init_GC()
     source_filenames = st_init_strtable();
 
     rb_global_variable(&nomem_error);
-    nomem_error = rb_exc_new2(rb_eNoMemError, "failed to allocate memory");
+    nomem_error = rb_exc_new3(rb_eNoMemError,
+			      rb_obj_freeze(rb_str_new2"failed to allocate memory"));
     OBJ_TAINT(nomem_error);
     OBJ_FREEZE(nomem_error);