Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision e976171ce8119cc9808ddda690bdfd5cddcf230c)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 912aabec1b74ad55601ec870f4221bfcc6dc9281)
@@ -647,5 +647,5 @@
 #
 #/////////////////////////////////////////////////////////////////////////////
-  eval InsertChild [lrange $args 0 3] [list [list [lindex $args 4]]] [lrange $args 5 end]
+    eval InsertChild [lrange $args 0 3] [list [list [lindex $args 4]]] [lrange $args 5 end]
 }
 
@@ -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,7 +808,7 @@
       set data [lreplace $data 9 9 $objRef]  
       #(pgea) se utiliza la informacon de instancia
-      puts "Tol_ClassOfFromReference $objRef"
+      #puts "Tol_ClassOfFromReference $objRef"
       set classOf [Tol_ClassOfFromReference $objRef]
-      puts "Tol_InstanceContentFromReference $objRef"
+      #puts "Tol_InstanceContentFromReference $objRef"
       set insCont [Tol_InstanceContentFromReference $objRef]
       if {$insCont ne ""} {
@@ -1371,4 +1371,5 @@
 #
 #/////////////////////////////////////////////////////////////////////////////
+
   #Tolcon_Trace "LLAMADA A SELECTOBJECT"
   variable w_tabset
@@ -2036,4 +2037,7 @@
 
 proc Tol_StructOfFromReference { objReference } {
+  # WATCH!!!!
+  # when Tol_StructOfFromReference is invoken on {File xxx} xxx is
+  # decompiled!!!!
   if { [ llength $objReference ] == 2 && 
        [ lindex $objReference 0 ] eq "File" } {