Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	22 Sep 2003 13:35:16 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	22 Sep 2003 13:43:29 -0000	1.7
@@ -266,17 +266,17 @@
 
 
     # -package_key
-    set nodes [site_node::get_children -all -element node_id -node_id $node_id -filter_element package_key -filter_value "acs-admin"]
+    set nodes [site_node::get_children -all -element node_id -node_id $node_id -filters { package_key "acs-admin" }]
 
-    aa_equals "package_key arg. identical to filter_element package_key" \
+    aa_equals "package_key arg. identical to -filters" \
         [site_node::get_children -all -element node_id -node_id $node_id -package_key "acs-admin"] \
         $nodes
     
     aa_equals "Found exactly one acs-admin node" [llength $nodes] 1
 
 
     # -package_type
-    set nodes [site_node::get_children -all -element node_id -node_id $node_id -filter_element package_type -filter_value "apm_service"]
+    set nodes [site_node::get_children -all -element node_id -node_id $node_id -filters { package_type "apm_service" }]
     aa_equals "package_type arg. identical to filter_element package_type" \
         [site_node::get_children -all -element node_id -node_id $node_id -package_type "apm_service"] \
         $nodes