Index: tolbase/lib/byswidget/bfunctions/bftoltcl.tcl
===================================================================
--- tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 6d7779d88a35f4606432b88f2eceba8b66c4516b)
+++ tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision f752ef911ec6cc53b84400bb3d1f13ba426c3e74)
@@ -97,9 +97,9 @@
 #/////////////////////////////////////////////////////////////////////////////
   # eval
-  if {![catch {set lst [::tol::info variable $gra $obj]}]} {
+  if {![catch {set lst [::tol::info variable [list $gra $obj]]}]} {
     set lstNam [list CONTENT PATH DESC INDEXES ISFILE\
                      HASSUBSET SUBTYPE STRUCT]
     for {set i 0} {$i < [llength $lstNam]} {incr i} {
-      set inf([lindex $lstNam $i]) [lindex $lst $i]
+      set inf([lindex $lstNam $i]) [lindex $lst [expr $i+2]]
     }
     #parray inf
@@ -124,5 +124,5 @@
 #/////////////////////////////////////////////////////////////////////////////
   # eval
-  set cmd "::tol::info variable {$obj [eval list $args]}"
+  set cmd "::tol::info variable {Set $obj $args}"
   #puts "cmd: $cmd"
   if {![catch {set lst [eval $cmd]}]} {
@@ -130,5 +130,5 @@
                      HASSUBSET SUBTYPE STRUCT]
     for {set i 0} {$i < [llength $lstNam]} {incr i} {
-      set inf([lindex $lstNam $i]) [lindex $lst $i]
+      set inf([lindex $lstNam $i]) [lindex $lst [expr $i+2]]
     }
     #parray inf