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.55 -r1.56
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Jul 2018 13:09:11 -0000	1.55
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	25 Jul 2018 02:51:32 -0000	1.56
@@ -249,9 +249,15 @@
 
 }
 
-aa_register_case -cats {api} -on_error {
-    site_node::get_children returns root node!
-} site_node_get_children {
+aa_register_case \
+    -cats {api} \
+    -procs {
+        site_node::get_children
+        site_node::get_node_id
+    } \
+    -on_error {
+        site_node::get_children returns root node!
+    } site_node_get_children {
     Test site_node::get_children
 } {
     # Start with a known site-map entry
@@ -464,7 +470,16 @@
         "$base?$export_no_base"
 }
 
-aa_register_case -cats {api smoke} site_node_verify_folder_name {
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
+        site_node::exists_p
+        site_node::get_children
+        site_node::get_element
+        site_node::get_node_id
+        site_node::verify_folder_name
+    } \
+    site_node_verify_folder_name {
     Testing site_node::verify_folder_name
 } {
     set main_site_node_id [site_node::get_node_id -url /]
Index: openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl	22 Jul 2018 09:58:43 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/test/navigation-procs.tcl	25 Jul 2018 02:51:32 -0000	1.11
@@ -70,9 +70,10 @@
     api 
     smoke
 } -procs {
-
-ad_context_bar
-
+    ad_context_bar
+    site_node::get
+    site_node::mount
+    site_node::new
 } ad_context_bar {
 
     Test if returns a well formed context_bar in html format from a site node.
Index: openacs-4/packages/acs-tcl/tcl/test/site-nodes-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/site-nodes-test-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/test/site-nodes-test-procs.tcl	19 Jul 2018 07:45:54 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/test/site-nodes-test-procs.tcl	25 Jul 2018 02:51:32 -0000	1.9
@@ -6,9 +6,18 @@
      @cvs-id $Id$
 }
 
-aa_register_case -cats {
-    api
-} site_node_update_cache {
+aa_register_case \
+    -cats { api } \
+    -procs {
+        site_node::delete
+        site_node::get_node_id
+        site_node::get_url
+        site_node::init_cache
+        site_node::instantiate_and_mount s
+        ite_node::rename
+        site_node::unmount
+    } \
+    site_node_update_cache {
     Test site_node::update_cache
 } {
     aa_run_with_teardown -rollback -test_code {
@@ -80,9 +89,16 @@
     }
 }
 
-aa_register_case -cats {
-   api
-} site_node_closest_ancestor_package {
+aa_register_case \
+    -cats { api } \
+    -procs {
+        site_node::closest_ancestor_package
+        site_node::get_node_id
+        site_node::instantiate_and_mount
+        site_node::new
+        subsite::main_site_id
+    } \
+    site_node_closest_ancestor_package {
     Test site_node::closest_ancestor_package
 } {
     aa_run_with_teardown -rollback -test_code {