--- 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]
 }