Index: tolbase/lib/byswidget/bfunctions/bftoltcl.tcl
===================================================================
--- tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 02d65b06016d0a054fa17fee39462c7e10d50c99)
+++ tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 3e6204954e14b9e7d33c78cc59e414dbbc9d8fef)
@@ -721,5 +721,5 @@
       set G $it_info(grammar)
       if { $G eq "Set" || $G eq "NameBlock" } {
-        set value [ TolObj2TclObj [ eval list $obj $idx ] ] 
+        set value [ TolObj2TclObjNamed [ eval list $obj $idx ] ] 
       } else {
          set value $it_info(content)