Index: tolbase/lib/byswidget/bodbc/bodbc.tcl
===================================================================
--- tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision 6d7779d88a35f4606432b88f2eceba8b66c4516b)
+++ tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision fd65ddbad32318e537d650d7f53e865fca2b9d05)
@@ -464,5 +464,5 @@
       Real __dbopen_status__ = DBOpen("%A","%U","%P");
     }]
-    set status [lindex [tol::info variable Real __dbopen_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbopen_status__]] 0]
     tol::console stack release __dbopen_status__
     expr {$status>0.0}
@@ -473,5 +473,5 @@
       Real __dbact_status__ = DBActivate("%A");
     }]
-    set status [lindex [tol::info variable Real __dbact_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbact_status__]] 0]
     tol::console stack release __dbact_status__
     expr {$status>0.0}
@@ -482,5 +482,5 @@
       Real __dbclose_status__ = DBClose("%A");
     }]
-    set status [lindex [tol::info variable Real __dbclose_status__] 0]
+    set status [lindex [tol::info variable [list Real __dbclose_status__]] 0]
     tol::console stack release __dbclose_status__
     expr {$status>0.0}