Index: tolbase/lib/byswidget/bfunctions/bftoltcl.tcl
===================================================================
--- tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 2c6eceeeb6d610c0424396d95f7aedf8061f5905)
+++ tolbase/lib/byswidget/bfunctions/bftoltcl.tcl	(revision 5e5a20f35563e775ae13b5863bbf7d35bbdd820b)
@@ -42,5 +42,5 @@
   set name $seed
   while {[string equal $end 0]} {
-    if [catch {::tol::info variable $gra $name}] {
+    if [catch {::tol::info variable [ list $gra $name ]}] {
       set end 1
     } else {