Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 0373a3c851e9daf30357ef1b6257d49650b5683e)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision bc68cb2a57179fd20081a978b4d7ba96c9300112)
@@ -2660,5 +2660,5 @@
   array unset options_selected
   
-  puts "::TolInspector::PostTree $x $y" 
+  #puts "::TolInspector::PostTree $x $y" 
   foreach it [array names data_menu] {
     $data_menu($it) delete 0 end
@@ -2707,7 +2707,8 @@
       #puts "2objName: $objName"   
       if { $InRootPool } {
-        #puts "es InRootPool"        
+        #puts "es InRootPool $item_id"        
         set itemid $item_id
-        set object $data(pool,variables,$itemid)
+        #set object $data(pool,variables,$itemid)
+        set object $data(pool,reference,$node_type)
       } else {
         #puts "NO InRootPool"
@@ -2724,4 +2725,9 @@
 #Tolcon_Trace "object=$object, label=$objName" {red}
 #Tolcon_Trace "***********************************" {red}
+      
+      #
+      # TICKET: #1438
+      # Por que se pregunta aqui por los objetos de consola?
+      #
       set stackList [::tol::console stack list]
       #puts "stackList: $stackList"