Index: openacs-4/packages/xowf/lib/answer-single-question.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/answer-single-question.wf,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/xowf/lib/answer-single-question.wf	30 May 2021 18:59:59 -0000	1.1.2.4
+++ openacs-4/packages/xowf/lib/answer-single-question.wf	15 Nov 2021 17:02:37 -0000	1.1.2.5
@@ -85,18 +85,26 @@
   set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
 
   #
-  # In case shuffling is required, fetch via the shuffled position.
-  #
-  set shuffle_id [expr {[$parent_obj property shuffle_items 0] ? [$obj creation_user] : -1}]
-
-  #
   # Load the form. This is here simply the parent object
   #
-  set form_obj ::[$obj parent_id]
+  set form_obj $parent_obj
 
-  foreach chunk [::xowf::test_item::question_manager describe_form -asHTML $form_obj] {
+  foreach chunk [::xowf::test_item::question_manager describe_form \
+                     -field_name answer -asHTML $form_obj] {
     util_user_message -html -message $chunk
   }
+
+  if {[$form_obj property item_type] eq "PoolQuestion"} {
+    #
+    # In the case of a PoolQuestion, we have to replace the question.
+    #    
+    set form_obj [::xowf::test_item::question_manager replace_pool_question \
+                      -position 1 \
+                      -seed [clock seconds] \
+                      -field_name answer \
+                      -pool_question_obj $form_obj \
+                      -exam_question_names ""]
+  }
   return $form_obj
 }