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 -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	10 Aug 2006 18:26:39 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	11 Aug 2006 09:11:48 -0000	1.4
@@ -31,7 +31,9 @@
 		where ac.table_name (+)= at.table_name 
 		  and not (constraint_name like '%_PK' or constraint_name like '%_UN' or constraint_name like '%_FK' or constraint_name like '%_CK' or constraint_name like '%_NN')
 	    } {
-                aa_log_result fail "Table $table_name constraints name $constraint_name ($c_type) violates constraint naming standard"
+		if { [string last "$" $table_name] == -1 } {
+		    aa_log_result fail "Table $table_name constraints name $constraint_name ($c_type) violates constraint naming standard"
+		}
 	    }
 	}
         default {