Index: toltcl/generic/tolaccess.cpp
===================================================================
--- toltcl/generic/tolaccess.cpp	(revision e92e09a6f85e816e341ba021865d48aa306a02f4)
+++ toltcl/generic/tolaccess.cpp	(revision d143dd91ba34ec9f44971b0cd44229f816570a2d)
@@ -67,7 +67,7 @@
 
 static
-const BText& GetObjectName(const BSyntaxObject * so)
-{
-  return so->HasName() ? so->Name() : so->LocalName();
+BText GetObjectName(const BSyntaxObject * so)
+{
+  return so->HasName() ? so->FullName() : so->LocalName();
 }
 
@@ -75,5 +75,5 @@
 void GetName( const BSyntaxObject * so, BText & res )
 {
-  res = so->Name();
+  res = so->FullName();
 }
 
@@ -304,5 +304,5 @@
     /* OBJECT NAME */
 //  btxt = so->Identify();
-    btxt = GetObjectName(so);
+    GetName( so, btxt );
     Tcl_ExternalToUtfDString(NULL,btxt,-1,&dstr);
     robjv[1] = Tcl_NewStringObj(Tcl_DStringValue(&dstr),-1);
@@ -920,5 +920,5 @@
     
     //btxt = syn_i->Identify();
-    btxt = GetObjectName(syn_i);
+    GetName( syn_i, btxt );
     Tcl_ExternalToUtfDString(NULL,btxt,-1,&dstr);
     if (Tcl_IsShared(datav[ARG_NAME])) {
@@ -1102,5 +1102,7 @@
   
   //items[IT_NAME] = Tcl_NewStringObj(tol_obj->Identify(),-1);
-  items[IT_NAME] = Tcl_NewStringObj(GetObjectName(tol_obj),-1);
+  BText tmp;
+  GetName( tol_obj, tmp );
+  items[IT_NAME] = Tcl_NewStringObj(tmp.Buffer(),-1);
   Rows = theMat.Rows();
   Cols = theMat.Columns();
@@ -1207,5 +1209,5 @@
 
   //tmp = tms->Identify();
-  tmp = GetObjectName(tms);
+  GetName(tms, tmp);
   obj_array[0] = Tcl_NewStringObj(tmp,-1);
   for ( int i = 1; i < length; i++ ) {
@@ -1558,5 +1560,5 @@
       // function name
       Tcl_DStringInit(&dstr);
-      Tcl_ExternalToUtfDString(NULL, opr->Name(), -1, &dstr); 
+      Tcl_ExternalToUtfDString(NULL, opr->FullName(), -1, &dstr); 
       Tcl_DStringAppend(&dstr_info, Tcl_DStringValue(&dstr), -1);
       Tcl_DStringFree(&dstr);
@@ -1728,5 +1730,7 @@
     
   /* NAME */
-  BText synname(GetObjectName(var));
+  BText synname;
+  
+  GetName(var, synname);
   Tcl_ExternalToUtfDString(NULL,synname,-1,&dstr);
   info[1] = Tcl_NewStringObj(Tcl_DStringValue(&dstr), -1);