Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.141.2.24 -r1.141.2.25
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	31 Aug 2020 12:41:15 -0000	1.141.2.24
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	1 Sep 2020 14:40:40 -0000	1.141.2.25
@@ -1530,18 +1530,17 @@
                     ::acs::site_nodes_children_cache flush_all
 
                 } else {
-                    set limit_clause [expr {$with_subtree ? "" : "limit 1"}]
                     #
-                    # Get subtree from db; probably Oracle does not support "limit 1" yet
+                    # Get subtree from db
                     #
-                    set tree [::xo::dc list_of_lists -prepare integer [current method]-flush-tree [subst {
+                    set tree [::xo::dc list_of_lists -prepare {integer boolean} get_subtree [subst {
                         WITH RECURSIVE site_node_tree AS (
                             select node_id, parent_id, object_id from site_nodes where node_id = :node_id
                         UNION ALL
                             select child.node_id, child.parent_id, child.object_id from site_node_tree, site_nodes as child
                             where  child.parent_id = site_node_tree.node_id
+                              and :with_subtree
                         ) select [xo::dc map_function_name site_node__url(node_id)], node_id, object_id from site_node_tree
-                        $limit_clause
                     }]]
                     foreach entry $tree {
                         lassign $entry url node_id object_id