Index: openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	30 Nov 2010 13:40:10 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	2 Dec 2010 16:03:41 -0000	1.13
@@ -191,6 +191,7 @@
                 if {[string is space $column_name]} {
                     set column_name $attribute_name
                 }
+                set column_name [string tolower $column_name]
 
                 if {[lsearch $columns($obj_type_table) $column_name] < 0} {
                     aa_log_result fail "Type $object_type attribute column $column_name not found in $obj_type_table"