Index: openacs-4/packages/dynamic-types/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/form-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/dynamic-types/tcl/form-procs.tcl	7 Aug 2006 09:32:10 -0000	1.15
+++ openacs-4/packages/dynamic-types/tcl/form-procs.tcl	14 Aug 2007 20:55:31 -0000	1.16
@@ -1210,6 +1210,7 @@
 }
 
 ad_proc -public dtype::form::edit {
+    {-object_type:required}
     {-form_name:required}
     {-form_id:required}
 } {
Index: openacs-4/packages/dynamic-types/www/form-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/form-ae.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dynamic-types/www/form-ae.tcl	13 Aug 2007 20:49:57 -0000	1.4
+++ openacs-4/packages/dynamic-types/www/form-ae.tcl	14 Aug 2007 20:55:32 -0000	1.5
@@ -32,7 +32,7 @@
 } -new_data {
     dtype::form::new -object_type $object_type -form_name $name -form_id $form_id
 } -edit_data {
-    dtype::form::edit -form_name $name -form_id $form_id
+    dtype::form::edit -form_name $name -form_id $form_id -object_type $object_type
 } -after_submit {
     ad_returnredirect [export_vars -base form {object_type form_id}]
     ad_script_abort