Index: openacs-4/packages/xowf/lib/inclass-exam-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-exam-answer.wf,v
diff -u -r1.1.2.54 -r1.1.2.55
--- openacs-4/packages/xowf/lib/inclass-exam-answer.wf	9 Jan 2022 20:46:52 -0000	1.1.2.54
+++ openacs-4/packages/xowf/lib/inclass-exam-answer.wf	12 Jan 2022 11:14:41 -0000	1.1.2.55
@@ -98,7 +98,7 @@
 }
 Action instproc set_page {obj increment} {
   set parent_obj [::xo::db::CrClass get_instance_from_db -item_id [$obj parent_id]]
-  set pages [[$obj set QM] question_names $parent_obj]
+  set pages [[$obj QM] question_names $parent_obj]
   set position [:property position 0]
   incr position $increment
   if {$position < 0} {