--- a/odbctcsq.tcl
+++ b/odbctcsq.tcl
@@ -66,8 +66,8 @@
if {![info exists _ODBCconns($hdl)]} {
return -code error "Unknown connection handle: '$hdl'"
}
- set user [lindex _ODBCconns($hdl) 1]
- set passwd [lindex _ODBCconns($hdl) 2]
+ set user [lindex $_ODBCconns($hdl) 1]
+ set passwd [lindex $_ODBCconns($hdl) 2]
set cmd [list database connect $hdl $database]
if {$user != ""} {
lappend cmd $user
@@ -143,8 +143,8 @@
proc ODBCuniqueid {hdl tbl} {
tcsqdebug "ODBCuniqueid: hdl '$hdl', tbl '$tbl'"
global _ODBCconns
- set host [lindex _ODBCconns($hdl) 0]
- set database [lindex _ODBCconns($hdl) 3]
+ set host [lindex $_ODBCconns($hdl) 0]
+ set database [lindex $_ODBCconns($hdl) 3]
return [cdkuniqueid $host $database $tbl]
}