Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 9750667c56a406adcd145dc149e686c355ef36d4)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 025a6efd20dc8fedd392e969a0ccfbace2cdb9bd)
@@ -703,5 +703,5 @@
     NameBlock -
     Set {
-      #puts "HTItem, ref = '$ref' '$args'"
+      puts "HTItem, ref = '$ref' '$args'"
       # args[5] is the index of the set object
       # args[6] is the flag file
@@ -808,5 +808,7 @@
       set data [lreplace $data 9 9 $objRef]  
       #(pgea) se utiliza la informacon de instancia
+      puts "Tol_ClassOfFromReference $objRef"
       set classOf [Tol_ClassOfFromReference $objRef]
+      puts "Tol_InstanceContentFromReference $objRef"
       set insCont [Tol_InstanceContentFromReference $objRef]
       if {$insCont ne ""} {
@@ -1378,4 +1380,5 @@
   variable node_prefix ""
   variable data
+  variable knownReference ""
 
   set index [$ht_tree index anchor]
@@ -1488,5 +1491,6 @@
   variable item_id 1
   variable w_tabset
-    
+  variable knownReference ""
+
   ClearHiertables
   $w_tabset tab configure Variables -text [mc Files]
@@ -1494,8 +1498,11 @@
   $w_tabset select 0
   foreach f [lreverse [::tol::info included]] {
-    set fi [::tol::info included $f]
+    # this catch is needed because info include could return files not
+    # realy included.
+    if { [ catch { ::tol::info included $f } fi ] } continue
     # tener en cuenta el subtype cuando lo retorne
+    set knownReference [ list "File" $f ] 
     InsertChild Set $f \
-        [lindex $fi 0] [lindex $fi 1] [list [lindex $fi 2]] $item_id 1 [lindex $fi 3] [lindex $fi 4]
+        [lindex $fi 0] [lindex $fi 1] [list [lindex $fi 2]] $item_id 1 [lindex $fi 3] [lindex $fi 4] 
   }
 }
@@ -2029,4 +2036,8 @@
 
 proc Tol_StructOfFromReference { objReference } {
+  if { [ llength $objReference ] == 2 && 
+       [ lindex $objReference 0 ] eq "File" } {
+    return ""
+  }
   set addr [ ::tol::info address $objReference ]
   return [ Tol_StructOf $addr ]