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.181 -r1.7.2.182
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	3 Dec 2021 12:17:46 -0000	1.7.2.181
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	5 Dec 2021 17:21:28 -0000	1.7.2.182
@@ -5496,16 +5496,18 @@
       # @return dict containing "title_infos", "form_constraints",
       #    "disabled_form_constraints", "randomization_for_exam",
       #     "autograde", "question_forms", "question_objs"
+      set full_fc {}
       set full_disabled_fc {}
       set title_infos {}
       set question_forms {}
 
+      set randomizationOk 1
+      set autoGrade 1
+      
       if {[llength $positions] == 0} {
         set position -1
         set positions [lmap form_obj $form_objs {incr position}]
       }
-      set randomizationOk 1
-      set autoGrade 1
       foreach form_obj $form_objs number $numbers position $positions {
         set form_obj [::xowf::test_item::renaming_form_loader rename_attributes $form_obj]
         set form_title [$form_obj title]