Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.163 -r1.7.2.164
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	2 Oct 2021 09:25:27 -0000	1.7.2.163
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	16 Oct 2021 14:46:53 -0000	1.7.2.164
@@ -1037,9 +1037,17 @@
     }
     next
     set widget [test_item set richtextWidget]
+
+    # We could exclude the "self" item (inclusion would lead to
+    # infinite loops), but that is as well excluded, when no Composite
+    # items are allowed.
+    #
+    #  set item_id [${:object} item_id]
+    #  {selection {form_page,form=en:edit-interaction.wf,unless=_item_id=$item_id,multiple=true}}
+
     :create_components  [subst {
       {text        {$widget,height=150px,label=#xowf.exercise-text#,plugins=OacsFs}}
-      {selection   {form_page,form=en:edit-interaction.wf,multiple=true}}
+      {selection   {form_page,form=en:edit-interaction.wf,unless=item_type=Composite,multiple=true}}
     }]
 
     set :__initialized 1