Index: tolbase/lib/toltk/tolinspe__wtree2.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe__wtree2.tcl	(revision c212e70b8c29789faa8a934b001ea89e459b10c1)
+++ tolbase/lib/toltk/tolinspe__wtree2.tcl	(revision 2bd03603bfce16eac9400b91c9c71d7d5209442e)
@@ -30,15 +30,18 @@
 #/////////////////////////////////////////////////////////////////////////////  
   variable wt_tree
-  set open 0
   set idx_file [$wt_tree item id "root-files"]
   if { [$wt_tree item isopen $idx_file] } {
+    #@ si está abierto el nodo de archivos, se cierra y se abre
     $wt_tree collapse $idx_file
-    set open 1
-  }
+    $wt_tree expand $idx_file
+    #@ si la selección estaba en el nodo de archivos se pierde
+    #@ de modo que seleccionamos el nodo raíz
+    if { [$wt_tree selection get] eq "" } {
+      $wt_tree selection modify $idx_file all
+    }
+  }
+  #@ si la selección es el nodo raíz, actualizamos la vista
   if { [$wt_tree item state get $idx_file selected] } {
     SelectObject
-  }
-  if $open {
-    $wt_tree expand $idx_file
   }
 }