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.42 -r1.141.2.43
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	15 Oct 2022 17:02:57 -0000	1.141.2.42
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	14 Nov 2022 02:26:03 -0000	1.141.2.43
@@ -1021,6 +1021,11 @@
                 }]
                 if {[db_driverkey ""] eq "oracle"} {
                     set sql [string map [list "WITH RECURSIVE" "WITH"] $sql]
+                    if { $with_subtree } {
+                        set sql [string map [list ":with_subtree" "1 = 1"] $sql]
+                    } else {
+                        set sql [string map [list ":with_subtree" "1 = 0"] $sql]
+                    }
                 }
 
                 set tree [::acs::dc list_of_lists -prepare {integer boolean} dbqd..get_subtree $sql]