Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.76.2.34 -r1.76.2.35
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	21 Jul 2020 14:02:09 -0000	1.76.2.34
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	27 Jul 2020 17:38:42 -0000	1.76.2.35
@@ -133,10 +133,10 @@
     @return list of item_ids
   } {
     #
-    # The following construct is fully PostgreSQL and Oracle
-    # compliant.  However, all newer Oracle installations should as
-    # well support the recursive query below as well, which requires
-    # less DB interactions.
+    # The following construct (commented out) is fully PostgreSQL and
+    # Oracle compliant.  However, all newer Oracle installations
+    # should as well support the recursive query below as well, which
+    # requires less DB interactions.
     #
     # set items [list]
     # foreach item_id [::xo::dc list -prepare integer get_child_items \
@@ -1239,7 +1239,7 @@
     #::xo::Package require ${:package_id}
     return [expr {${:item_id} eq [::${:package_id} folder_id]} ? true : false]
   }
-  
+
   CrItem instproc is_cached_object {} {
     return [info exists :__cached_object]
   }