Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision b1801b8ee6eb736d669cc44f4d3d72201a0a4924)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 325ee5ecb923ea4c946fb86918c2988a0513068a)
@@ -849,4 +849,5 @@
   variable ht_tree
 
+  #puts "::TolInspector::getPackageReference $treePath"
   catch {
     set typeContainer "NameBlock"
@@ -855,10 +856,10 @@
     #puts "path,2 = [ lindex $treePath 2 ]"
     #puts "order = $order"
-    set idx [ $ht_tree entry children "root-packages" $order $order ]
+    set idx [lindex [ $ht_tree entry children "root-packages"] $order]
     set nameContainer [ $ht_tree entry cget $idx -label ]
     #puts "en root-package:"
     #puts "\torder=$order"
     #puts "\tidx=$idx"
-    #puts "\nameContainer=$nameContainer"
+    #puts "\tnameContainer=$nameContainer"
     set container [ list $typeContainer $nameContainer ]
     if { [ llength $treePath ] > 3 } {
@@ -873,4 +874,5 @@
   } msg
   #puts "::TolInspector::getPackageReference: $msg"
+  #puts "::TolInspector::getPackageReference: [ list $container $tolindex ]"
   return [ list $container $tolindex ]
 }