Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision 1065545cc8f42c1746551ddf72541a8a5335e119)
+++ toltcl/generic/tolaccess.cpp	(revision 865a7b9dd88127abbf6a35e934e30d2c47e5b8b3)
@@ -71,9 +71,19 @@
 BText GetObjectName(const BSyntaxObject * so)
 {
-  return so->HasName() ? so->FullName() : so->LocalName();
+  // antes estaba FullName pero salian cosas como:
+  // estim::cycler::_.sampler::_.buildWorkSpace
+  return so->HasName() ? so->Name() : so->LocalName();
 }
 
 static
 void GetName( const BSyntaxObject * so, BText & res )
+{
+  // antes estaba FullName pero salian cosas como:
+  // estim::cycler::_.sampler::_.buildWorkSpace
+  res = so->Name();
+}
+
+static
+void GetFullName( const BSyntaxObject * so, BText & res )
 {
   res = so->FullName();
@@ -1996,4 +2006,5 @@
       // function name
       Tcl_DStringInit(&dstr);
+      // antes estaba FullName
       Tcl_ExternalToUtfDString(NULL, opr->FullName(), -1, &dstr); 
       Tcl_DStringAppend(&dstr_info, Tcl_DStringValue(&dstr), -1);
@@ -2066,5 +2077,5 @@
   if (gra) {
     BList * lstOper = gra->GetOperators();
-    if (BList2TclList(interp,lstOper,obj_result,&GetName) != TCL_OK) {
+    if (BList2TclList(interp,lstOper,obj_result,&GetFullName) != TCL_OK) {
       Tcl_AppendObjToObj(obj_result,Tcl_GetObjResult(interp));
       DESTROY(lstOper);