Index: openacs-4/packages/acs-object-management/tcl/test/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/test/object-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-object-management/tcl/test/object-procs.tcl	13 Mar 2011 22:56:22 -0000	1.4
+++ openacs-4/packages/acs-object-management/tcl/test/object-procs.tcl	9 May 2011 02:03:46 -0000	1.5
@@ -95,7 +95,7 @@
     aa_false "Form created" \
         [catch {
 
-            set form_part [form::form_part -object_view $view_name]
+            set form_part [object::form::form_part -object_view $view_name]
             aa_log $form_part
             ad_form -name $view_name \
                 -form $form_part
@@ -107,7 +107,7 @@
     aa_log $error
     
     aa_false "Object created from form" \
-        [catch {set object_id [object::new_from_form \
+        [catch {set object_id [object::form::new \
                                    -object_view $view_name \
                                    -object_id [db_nextval acs_object_id_seq] \
                                    -form $view_name]} error]