Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.239.2.95 -r1.239.2.96
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	11 Oct 2022 13:20:49 -0000	1.239.2.95
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	12 Oct 2022 10:58:49 -0000	1.239.2.96
@@ -4657,22 +4657,23 @@
                    -from_package_ids $package_ids \
                    -package_id $package_id]
 
-    if {[info exists with_categories]} {
-      if {$extra_where_clause eq ""} {
-        set base_items $items
-      } else {
-        # difference to variable items: just the extra_where_clause
-        set base_items [::xowiki::FormPage get_form_entries \
-                            -base_item_ids $form_item_ids \
-                            -parent_id $query_parent_id \
-                            -form_fields $form_field_objs \
-                            -publish_status $publish_status \
-                            -h_where [dict get $filters wc] \
-                            -h_unless [dict get $filters uc] \
-                            -from_package_ids $package_ids \
-                            -package_id $package_id]
-      }
-    }
+    # if {[info exists with_categories]} {
+    #   if {$extra_where_clause eq ""} {
+    #     set base_items $items
+    #   } else {
+    #     # difference to variable items: just the extra_where_clause
+    #     set base_items [::xowiki::FormPage get_form_entries \
+    #                         -base_item_ids $form_item_ids \
+    #                         -parent_id $query_parent_id \
+    #                         -form_fields $form_field_objs \
+    #                         -publish_status $publish_status \
+    #                         -h_where [dict get $filters wc] \
+    #                         -h_unless [dict get $filters uc] \
+    #                         -from_package_ids $package_ids \
+    #                         -package_id $package_id]
+    #   }
+    # }
+
     #:log "queries done"
     if {[info exists wf]} {
       set wf_link [::$package_id pretty_link -parent_id $parent_id -path_encode false $wf]