Index: tolbase/lib/toltk/msgs/es.msg
===================================================================
--- tolbase/lib/toltk/msgs/es.msg	(revision a0c0aaf82076fecb1735cf3ada883f91e2d79dd3)
+++ tolbase/lib/toltk/msgs/es.msg	(revision f3155c5ad0a83adf1e9b8fd32a62f5e79704f7d5)
@@ -136,5 +136,5 @@
 mcset es "Name"            "Nombre"
 mcset es "Content"         "Contenido"
-mcset es "Path"            "Dirección"
+mcset es "Path"            "Camino"
 mcset es "Description"     "Descripción"
 mcset es "OK"              "Aceptar"
Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision a0c0aaf82076fecb1735cf3ada883f91e2d79dd3)
+++ tolbase/lib/toltk/tolbase.tcl	(revision f3155c5ad0a83adf1e9b8fd32a62f5e79704f7d5)
@@ -1196,5 +1196,5 @@
   set lstToolFramesAux {}
   foreach it $lstToolFrames {
-    puts $it
+    #puts $it
     if {!([lsearch -exact $lstToolFramesAux $it ] >= 0)} {
       lappend lstToolFramesAux $it
@@ -1207,5 +1207,5 @@
   set lstFramesAux {}
   foreach it $lstFrames {
-    puts $it
+    #puts $it
     if {!([lsearch -exact $lstFramesAux $it ] >= 0)} {
       lappend lstFramesAux $it
Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision a0c0aaf82076fecb1735cf3ada883f91e2d79dd3)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision f3155c5ad0a83adf1e9b8fd32a62f5e79704f7d5)
@@ -703,4 +703,5 @@
     NameBlock -
     Set {
+      #puts "HTItem, ref = '$ref' '$args'"
       # args[5] is the index of the set object
       # args[6] is the flag file
@@ -735,12 +736,14 @@
   #upvar \#0 ::TolTk::Images Images
 
+  #puts "ENTER: ::TolInspector::Insert_HTItem"
   if { $knownReference eq "" } {
     set objRef $iterSet
     lappend objRef $item_id
   } else {
-    puts "knownReference = $knownReference"
+    #puts "knownReference = $knownReference"
     set objRef $knownReference
   }
 
+  #puts "\tobjRef = $objRef"
   if { $gra_parent eq "NameBlock" } {
     array set info_member [ FilterNameBlockMember $name ]
@@ -761,5 +764,5 @@
   } elseif {[regexp -- "console" $node_prefix]} {
     set ref_value [list Console]
-	eval lappend ref_value $tolindex $item_id
+    eval lappend ref_value $tolindex $item_id
   } else {
     set ref_value ""
@@ -798,5 +801,7 @@
     # aqui hay que pedir el bitmap en funcion del subtype: args[2]
     if {$grammar eq "Set"} {
+      #puts "*******Set $objRef *******"
       set icon_grammar [SubTypeImage [lindex $args 2]]
+      set data [lreplace $data 9 9 $objRef]  
     } else {
       #(pgea) se reemplaza el valor de la referencia en data
@@ -964,5 +969,5 @@
         } elseif {[regexp -- "console(.+)" $node_prefix --> idx_con]} {
           set tolset "Console"
-		  #puts "OpenObject: Console: leaf_info = $leaf_info"
+          #puts "OpenObject: Console: leaf_info = $leaf_info"
           if {[llength $leaf_info] == 1} {
             set tolindex $idx_con
@@ -1139,5 +1144,5 @@
         set icon [SubTypeImage [lindex $infoObj 7]]
       } else  {
-        puts "en pool = $obj(reference)"
+        #puts "en pool = $obj(reference)"
         set objAddress [ tol::info address $objRef ]
         set icon [ ::ImageManager::getIconForInstance $objAddress ]
@@ -1426,5 +1431,5 @@
     default {
       set node_prefix $node_type
-	  #puts "SelectObject: node_prefix = $node_prefix"
+      #puts "SelectObject: node_prefix = $node_prefix"
       if { $node_type eq "package" } {
         foreach {tolset tolindex} [ getPackageReference $path ] break
@@ -1461,10 +1466,10 @@
         set idx [$ht_tree find -name $node_type]
         array set aryData [$ht_tree entry cget $idx -data]
-		#puts "SelectObject: FileName=$aryData(FileName) info_node=$info_node"
+        #puts "SelectObject: FileName=$aryData(FileName) info_node=$info_node"
         set tolset [list File $aryData(FileName)]
         set tolindex [lrange $info_node 1 end]
         #set tolindex [lrange $info_node 2 end]
       }
-	  #puts "SelectObject end: tolset=$tolset, tolindex=$tolindex"
+      #puts "SelectObject end: tolset=$tolset, tolindex=$tolindex"
       SelectSet
     }
@@ -2209,5 +2214,5 @@
       foreach var $vars_selected {
         array set aryData [$ht_vars entry cget $var -data]
-	    #puts "PostVariable: aryData = [array get aryData]"
+        #puts "PostVariable: aryData = [array get aryData]"
         set itemid $aryData(Index)
         set path   $aryData(Path)
@@ -2225,10 +2230,10 @@
               #set object [concat [list File $tolset] $tolindex $itemid]
               set object [concat $tolset $tolindex $itemid]
-			  #puts "tolset = $tolset"
+              #puts "tolset = $tolset"
             } else {
               if [llength $objName] {
                 set object [list $grammar $objName]
               } else {
-			    set object $objName
+                set object $objName
               }
             }
@@ -2255,5 +2260,5 @@
             # Si el objeto se da como referencia
             if { [llength $object] > 1 }  {
-			  #puts "PostVariable: Set: object = $object"
+              #puts "PostVariable: Set: object = $object"
               if {$InRootFiles} {
                 set isFile 1
@@ -2294,5 +2299,4 @@
               if {[llength $options_selected($grammar)] == 1} {
                 set object [lindex [lindex $options_selected($grammar) 0] 0]
-                puts "PostVariable:Matrix: object=$object"
                 $data_menu(main) add command -label [mc "Table matrix"] \
                   -command [list ::TolInspector::TableMatrix $object]
@@ -2505,5 +2509,4 @@
 
           $data_menu(main) add separator
-          puts "grammar = $grammar"
           $data_menu(main) add cascade -label [mc "Functions"] \
              -menu $data_menu($grammar,Functions)
@@ -2572,5 +2575,4 @@
   
   array unset options_selected
-  puts "PostFunction"
   foreach it [array names data_menu] {
     $data_menu($it) delete 0 end
@@ -2674,15 +2676,15 @@
   if { [string length $node_act] } {
     set vars_selected [$ht_tree curselection]
-    puts "vars_selected: $vars_selected"      
+    #puts "vars_selected: $vars_selected"      
     if { [lsearch $vars_selected $node_act] >= 0 } { ;# Not root node
       set index [$ht_tree index anchor]
-      puts "index: $index"    
+      #puts "index: $index"    
       if { $index } {
         set info_node [split [lindex [$ht_tree get -full $index] end] "-"]
-        puts "info_node: $info_node"  
+        #puts "info_node: $info_node"  
         set node_type [lindex $info_node 0]
-        puts "node_type: $node_type"          
+        #puts "node_type: $node_type"          
         set node_name [lindex $info_node 1]
-        puts "node_name: $node_name"          
+        #puts "node_name: $node_name"          
       } else { ;# root node
         set node_type root
@@ -2696,5 +2698,5 @@
       # label of object showed in the tree
       set objName [$ht_tree entry cget $index -label]
-      puts "objName: $objName"
+      #puts "objName: $objName"
       set object $objName
 
@@ -2718,5 +2720,5 @@
         }
       }
-      puts "object = $objName '[$ht_tree entry cget $index -data]'"
+      #puts "object = $objName '[$ht_tree entry cget $index -data]'"
 #Tolcon_Trace "***********************************" {red}
 #Tolcon_Trace "index=$index, node_type=$node_type, node_name=$node_name" {red}
@@ -3558,5 +3560,5 @@
   variable regFunLst
   
-  puts "ShowMenuUserFunc: gra=$gra"
+  #puts "ShowMenuUserFunc: gra=$gra"
   if {[expr [info exist ::TolInspector::regFunLst] && [llength $regFunLst] ]} {
     array set regFun $regFunLst