Index: openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl	22 Jul 2008 07:31:04 -0000	1.1
+++ openacs-4/packages/layout-manager/tcl/test/layout-manager-test-procs.tcl	5 Dec 2008 13:46:40 -0000	1.2
@@ -170,9 +170,9 @@
                 set pageset_id [layout::pageset::new -package_id [ad_conn package_id] -owner_id 0]
                 set page_id [layout::page::new -pageset_id $pageset_id \
                                 -name test -page_template 2_column]
-                set element_id [layout::element::new -pageset_id $pageset_id \
+                set element_id [layout::element::new \
                                 -package_id [ad_conn package_id] \
-                                -page_name test -includelet_name subsites_includelet \
+                                -page_id $page_id -includelet_name subsites_includelet \
                                 -name test -title Test]
                 aa_true "Pass $i: new" [exists_and_not_null element_id]
 
@@ -221,9 +221,9 @@
                 set pageset_id [layout::pageset::new -package_id [ad_conn package_id] -owner_id 0]
                 set page_id [layout::page::new -pageset_id $pageset_id \
                                 -name test -page_template 2_column]
-                set element_id [layout::element::new -pageset_id $pageset_id \
+                set element_id [layout::element::new \
                                 -package_id [ad_conn package_id] \
-                                -page_name test -includelet_name subsites_includelet \
+                                -page_id $page_id -includelet_name subsites_includelet \
                                 -name test -title Test]
                 layout::element::parameter::add_values \
                     -element_id $element_id \