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 -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	10 Jan 2007 21:22:12 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	31 Jul 2011 23:11:46 -0000	1.6
@@ -80,9 +80,7 @@
                   end;"
 
 		set type_drop_sql "begin
-                  acs_object_type.drop_type(
- 			object_type => :object_type,
- 			cascade_p => 't');
+                  acs_object_type.drop_type(object_type => :object_type);
                   end;"
 	    }