Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 82871e823019c3256b41da677fb6d225365d8df5)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 746525af0cb88fa9f7ed84961e29938f66187174)
@@ -1664,7 +1664,5 @@
       } elseif { $grammar eq "Set" || $grammar eq "NameBlock" } {
         #Tolcon_Trace "Set : -- $vinfo --"
-        if { $grammar eq "NameBlock" } {
-          set knownReference [ list "NameBlock" $var ]
-        }
+        set knownReference [ list $grammar $var ]
         InsertChild $grammar $var [lindex $vinfo 2] [lindex $vinfo 3] [list [lindex $vinfo 4]] \
           $item_id [lindex $vinfo 5] [lindex $vinfo 6] [lindex $vinfo 7]