added preliminary debugging of c->tk commands

pd/src/t_tkcmd.c

@@ -557,6 +557,8 @@ void tcl_mess(char *s)
     int result;
 	char catch_s[strlen(s)+10];
 	sprintf(catch_s, "catch { %s }", s);
+	//char catch_s[strlen(s)];
+	//sprintf(catch_s, "%s", s);
     Tcl_Obj *messageObjPtr = Tcl_NewStringObj(catch_s,-1);
     Tcl_IncrRefCount(messageObjPtr);
     result = Tcl_EvalObjEx(tk_pdinterp, messageObjPtr, TCL_EVAL_GLOBAL);