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.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	10 Jan 2007 21:22:12 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	16 Sep 2007 18:42:57 -0000	1.11
@@ -174,7 +174,7 @@
     db_foreach attribute {select a.*, lower(ot.table_name) as obj_type_table from acs_attributes a, acs_object_types ot where ot.object_type = a.object_type order by a.object_type} {
 
         if {[string tolower $table_name] ne $table_name } {
-            aa_log_result fail "Type $object_type attribute $attribute table name $table_name mixed case"
+            aa_log_result fail "Type $object_type attribute $table_name.$attribute_name mixed case"
             set table_name [string tolower $table_name]
         } elseif {[string is space $table_name]} {
             set table_name $obj_type_table
@@ -211,7 +211,7 @@
             }
             default {
                 # it was null which is probably not sensible.
-                aa_log_result fail "Type $object_type attribute $attribute storage type null"
+                aa_log_result fail "Type $object_type attribute $table_name.$attribute_name storage type null"
             }
         }
     }