Index: openacs-4/packages/xowf/lib/inclass-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/Attic/inclass-exam.wf,v
diff -u -N -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/xowf/lib/inclass-exam.wf	2 Apr 2020 12:53:00 -0000	1.1.2.13
+++ openacs-4/packages/xowf/lib/inclass-exam.wf	2 Apr 2020 16:10:07 -0000	1.1.2.14
@@ -474,15 +474,24 @@
       set proctoring [:property proctoring]
       if {$proctoring ne "" && $proctoring} {
         set cLink [export_vars -base [:pretty_link] {
-          {m proctor} {link "[$wf pretty_link -query m=create-or-use&p.proctor=1]"}
+          {m proctor} {link "[:pretty_link -query m=proctor-answer]"}
         }]
         ::${:package_id} returnredirect $cLink
       } else {
         $wf www-create-or-use -parent_id [:item_id]
       }
     }
   }
+  :proc www-proctor-answer {} {
+    if {[:property _state] ne "published"} {
+      util_user_message -html -message "Cannot start answer workflow in this state"
+    } else {
+      set wf [xowf::test_item::answer_manager get_answer_wf [self]]
+      $wf www-create-or-use -parent_id [:item_id]
+    }
+  }
 
+  
   :proc www-qrcode {} {
     set aLink [:pretty_link -absolute true -query m=answer]
     set fn /tmp/qr-${:item_id}.png
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 -N -r1.7.2.43 -r1.7.2.44
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	2 Apr 2020 12:53:00 -0000	1.7.2.43
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	2 Apr 2020 16:10:07 -0000	1.7.2.44
@@ -2129,6 +2129,7 @@
   test-item-policy-publish contains {
     Class create FormPage -array set require_permission {
       answer         {{item_id read}}
+      proctor-answer {{item_id read}}
       proctor        {{item_id read}}
       poll           admin
       edit           admin