Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/s5/tcl/s5-procs.tcl	4 Apr 2018 22:00:34 -0000	1.15
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	5 Apr 2018 06:57:40 -0000	1.16
@@ -58,7 +58,7 @@
     set extra_where_clause ""
     set cnames ""
     if {[info exists category_id]} {
-      foreach {cnames extra_where_clause} [my category_clause $category_id] break
+      lassign [my category_clause $category_id] cnames extra_where_clause
     }
 
     set pages [::xowiki::Page instantiate_objects -sql \