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.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	31 Aug 2006 19:08:22 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	31 Aug 2006 20:44:01 -0000	1.9
@@ -109,8 +109,10 @@
         set id_column [string tolower $id_column]
 
         set the_pk {}
-	if { [string eq $table_name ""] } {
-	    db_0or1row get_supertype "select * from acs_object_types where object_type = :supertype"
+	while { [string is space $table_name] && ![string eq $object_type $supertype]} {
+	    if {![db_0or1row get_supertype "select * from acs_object_types where object_type = :supertype"]} {
+		break
+	    }
         } 
 	if {![db_table_exists $table_name]} {
             aa_log_result fail "Type $object_type: table $table_name does not exit"