Index: tol/btol/set_type/setgra.cpp
===================================================================
--- tol/btol/set_type/setgra.cpp	(revision 41bd29340ca1d4beeb7178c1d2759b9876e94dbe)
+++ tol/btol/set_type/setgra.cpp	(revision 248b84405049ddd11c113e488f2e87763c946058)
@@ -2721,6 +2721,5 @@
   BSyntaxObject * so;
   BInt status = 0;
-  BText str_result_ = BText("[Tcl_Eval] Unimplemented method in script=\n")+script+"\n";
-  const char* str_result = str_result_.Buffer();
+  const char * str_result = "Unimplemented";
   
   if (tcl_evaluator)
@@ -2729,5 +2728,5 @@
   result = Cons(so = new BContensDat("", status), result);
   so->PutName("status");
-  result = Cons(so = new BContensText("", str_result_), result);
+  result = Cons(so = new BContensText("", str_result), result);
   so->PutName("result");
   contens_.RobElement(result);
@@ -2764,6 +2763,5 @@
   BSyntaxObject * so;
   BInt status = 0;
-  BText str_result_ = BText("[Tcl_EvalEx] Unimplemented method in cmd=\n")+cmd.Dump()+"\n";
-  const char* str_result = str_result_.Buffer();
+  const char *str_result = "Unimplemented";
   
   if (tcl_evaluatorEx)
@@ -2772,5 +2770,5 @@
   result = Cons(so = new BContensDat("", status), result);
   so->PutName("status");
-  result = Cons(so = new BContensText("", str_result_), result);
+  result = Cons(so = new BContensText("", str_result), result);
   so->PutName("result");
   contens_.RobElement(result);