Index: tol/btol/set_type/setgra.cpp
===================================================================
--- tol/btol/set_type/setgra.cpp	(revision 0fb35c79d565a8fa6dd2219062ddcd4b65be144f)
+++ tol/btol/set_type/setgra.cpp	(revision 89169376c006dddf9f9a4309904faaa29ed2a947)
@@ -2721,5 +2721,6 @@
   BSyntaxObject * so;
   BInt status = 0;
-  const char * str_result = "Unimplemented";
+  BText str_result_ = BText("[Tcl_Eval] Unimplemented method in script=\n")+script+"\n";
+  const char* str_result = str_result_.Buffer();
   
   if (tcl_evaluator)
@@ -2728,5 +2729,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);
@@ -2763,5 +2764,6 @@
   BSyntaxObject * so;
   BInt status = 0;
-  const char *str_result = "Unimplemented";
+  BText str_result_ = BText("[Tcl_EvalEx] Unimplemented method in cmd=\n")+cmd.Dump()+"\n";
+  const char* str_result = str_result_.Buffer();
   
   if (tcl_evaluatorEx)
@@ -2770,5 +2772,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);