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 -N -r1.141.2.26 -r1.141.2.27
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	1 Sep 2020 17:32:07 -0000	1.141.2.26
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	1 Sep 2020 17:33:01 -0000	1.141.2.27
@@ -1236,7 +1236,10 @@
                 ns_log notice "NO-CACHE has_children called with $node_id"
 
                 ::xo::dc get_value -prepare integer has_children {
-                    select exists(select 1 from site_nodes where parent_id = :node_id)
+                    select case when exists
+                    (select 1 from site_nodes where parent_id = :node_id)
+                    then 1 else 0 end
+                    from dual
                 }
             }