Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.284.2.177 -r1.284.2.178
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Nov 2021 17:10:42 -0000	1.284.2.177
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Nov 2021 19:27:45 -0000	1.284.2.178
@@ -5361,10 +5361,7 @@
     if {$form_objs eq ""} {
       error "Cannot lookup Form '$form_name'"
     }
-    set :form_object_item_ids [list]
-    foreach form_obj $form_objs {
-      lappend :form_object_item_ids [$form_obj item_id]
-    }
+    set :form_object_item_ids [lmap form_obj $form_objs {$form_obj item_id}]
   }
 
   form_page instproc compute_options {} {