Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision c14b554cd08eb8c80c97755228ed57ef6e3f2c56)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision a6e4c78bf6deb793c5fb0eb5009864f88d271819)
@@ -658,4 +658,5 @@
   variable ht_funcs
   variable blt_functree
+  variable gra_parent
 
   #puts "InsertChild: args=$args [info level 1]"
@@ -665,4 +666,10 @@
   set path    [lindex $args 3]
   set desc    [lindex [lindex $args 4] 0]
+
+  if { ( $gra_parent eq "NameBlock" ) && 
+       [ regexp {(.+::)?_[^.](.*)} $name => p1 p2 ] } {
+    return
+  }
+
   if {[llength [lindex $args end]] >= 2} {
     #set ref [list [lindex [lindex $args end] 0] [lrange [lindex $args end] 1 end]]
@@ -843,5 +850,4 @@
         set node_prefix [lindex $leaf_info 0]
         set _tolset $tolset
-		puts "OpenObject: node_prefix = $node_prefix"
         if { [string equal $parent1 "root-pool"] } {
           #Tolcon_Trace "OpenObject. tolset=$tolset"
@@ -887,5 +893,5 @@
         #set set_ref [eval list [list $tolset] $tolindex]
         set set_ref [eval list $tolset $tolindex]
-        #puts "OpenObject: set_ref = $set_ref"
+        variable gra_parent [ GetParentGrammar $set_ref ]
         ::tol::forallchild $set_ref ::TolInspector::InsertSubset
         set tolset $_tolset
@@ -1059,5 +1065,10 @@
   variable has_button 0
   variable blt_tree
-
+  variable gra_parent
+
+  if { ( $gra_parent eq "NameBlock" ) && 
+       [ regexp {(.+::)?_[^.](.*)} [lindex $args 1] => p1 p2 ] } {
+    return
+  }
   #puts "InsertSubset, args=$args"
   set grammar [lindex $args 0]
@@ -1522,7 +1533,17 @@
   #puts "SelectSet: tolset=$tolset tolindex=$tolindex"
   set set_ref [eval list $tolset $tolindex]
-  #puts "SelectSet: set_ref = $set_ref"
+  variable gra_parent [ GetParentGrammar $set_ref ]
   ::tol::forallchild $set_ref ::TolInspector::_InsertChild
   #  set selecting_set 0
+}
+
+proc ::TolInspector::GetParentGrammar { set_ref } {
+  set parent [ lrange $set_ref 0 end-1 ]
+  if { ( [ llength $parent ] <= 2 ) && ( [ lindex $parent 0 ] eq "File" ) } {
+    set gra_parent File
+  } else {
+    set gra_parent [ lindex [ tol::info var $parent ] 0 ]
+  }
+  set gra_parent
 }