Index: tolbase/lib/byswidget/bfunctions/bftoltcl.tcl
===================================================================
--- tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 3d69c4da7468b912cd55b6e525c188d168f6f805)
+++ tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 7cdaf52ccfe78e60b315db27b6b966c3206c1806)
@@ -302,5 +302,5 @@
 
   ::tol::console eval $str
-  set result [lindex [::tol::info var $type $name] 0]
+  set result [lindex [::tol::info var [ list $type $name ] ] 2]
   ::tol::console stack release $name
   return $result
@@ -418,9 +418,5 @@
 #/////////////////////////////////////////////////////////////////////////////
   # eval
-  if {![catch {set lst [::tol::info variable $gra]}]} {
-    return [expr [lsearch $lst $obj] >= 0 ? 1 : 0]
-  }
-  # error
-  return 0
+  expr { ! [ catch { tol::info var [ list $gra $obj ] } ] }
 }