Index: tolbase/lib/byswidget/bodbc/bodbc.tcl
===================================================================
--- tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision 5930b076ffa7c1459006f722b40339647a8866fa)
+++ tolbase/lib/byswidget/bodbc/bodbc.tcl	(revision 47cbb8f7f5bfd4eae5758652b1d41b98dbf7837d)
@@ -925,5 +925,5 @@
     set inx 1
     while {!($result) && ([expr $inx <= $lenAry])} {
-      array set infoReg [TclInfoRef $op $inx 1]
+      array set infoReg [TclInfoRef [list Set $op $inx 1]]
       set aliasConn [lindex $infoReg(CONTENT) 0]
       if {[string equal $alias $aliasConn]} {