--- a/ixtcsq.tcl
+++ b/ixtcsq.tcl
@@ -153,8 +153,12 @@
     	set typ [expr $typ & 0xf]
     	# not used
     	set nonulls [expr $typ & 0x100] 
-	set len [lindex $typlen 1]
-    	set typind "sqlsc_${col}_type"
+	set len [lindex $typlen 1] 
+	# In all cases, remember type and length as from db
+	set ar(sqlsc_${col}_dbtype) $typ
+	set ar(sqlsc_${col}_dblen) $len
+
+   	set typind "sqlsc_${col}_type"
     	set lenind "sqlsc_${col}_len"
 
     	# type 6 is serial but we don't set a special case because