Index: openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	31 Aug 2006 10:17:16 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	24 Oct 2006 13:10:44 -0000	1.3
@@ -20,6 +20,8 @@
 
 	set pretty_name [ad_generate_random_string]
 	set object_type [string tolower $pretty_name]
+	set table_name "table${object_type}"
+	set id_column "id"
 	set name_method "${object_type}.name"
 	set creation_user [ad_conn user_id]
 	set creation_ip [ad_conn peeraddr]
@@ -34,9 +36,9 @@
 					      :pretty_name,
 					      :pretty_name,
 					      'acs_object',
+					      :table_name,
+					      :id_column,
 					      null,
-					      null,
-					      null,
 					      'f',
 					      null,
 					      :name_method);"