Index: openacs-4/packages/acs-object-management/tcl/test/object-types-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/test/object-types-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-object-management/tcl/test/object-types-procs.tcl	28 Jul 2009 23:35:09 -0000	1.1
+++ openacs-4/packages/acs-object-management/tcl/test/object-types-procs.tcl	13 Mar 2011 22:56:22 -0000	1.2
@@ -40,7 +40,6 @@
     if { [catch {object_type::delete \
                      -object_type object_type_test \
                      -drop_table_p t \
-                     -cascade_p t \
                      -drop_children_p t} error] } {
         aa_log_result fail "Attempt to delete type \"object_type_test\" failed: $error"
     } else {
@@ -64,7 +63,6 @@
     if { [catch {object_type::delete \
                      -object_type object_type_test2 \
                      -drop_table_p t \
-                     -cascade_p t \
                      -drop_children_p t} error] } {
         aa_log_result fail "Attempt to delete type \"object_type_test2\" failed: $error"
     } else {
@@ -84,7 +82,6 @@
     if { [catch {object_type::delete \
                      -object_type object_type_test3 \
                      -drop_table_p t \
-                     -cascade_p t \
                      -drop_children_p t} error] } {
         aa_log_result fail "Attempt to delete type \"object_type_test3\" failed: $error"
     } else {