Index: openacs-4/packages/xowf/lib/online-exam.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/online-exam.wf,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/xowf/lib/online-exam.wf	16 Jun 2015 20:44:07 -0000	1.2
+++ openacs-4/packages/xowf/lib/online-exam.wf	11 Aug 2017 13:35:48 -0000	1.3
@@ -43,31 +43,31 @@
 # exercises, the answer workflow is created.
 #
 select proc activate {obj} {
-  [my info parent] create_answer_workflow $obj
+  [:wf_context] create_answer_workflow $obj
 }
 
 ########################################################################
 # Activate action publish: delete all responses for the workflow and
 # publish user participation link.
 #
 publish proc activate {obj} {
-  [my info parent] delete_all_answer_data $obj
-  my publish_link $obj
+  [$obj wf_context] delete_all_answer_data $obj
+  :publish_link $obj
 }
 
 ########################################################################
 # Activate action republish: publish user participation link.
 #
 republish proc activate {obj} {
-  my publish_link $obj
+  :publish_link $obj
 }
 
 ########################################################################
 # When the user un-publishes an exam, just the user participation
 # link should be removed for the users
 #
 unpublish proc activate {obj} {
-  my unpublish_link $obj
+  :unpublish_link $obj
 }
 
 ########################################################################
@@ -167,17 +167,17 @@
   my log "create_answer_workflow $obj"
 
   # first delete workflow and data, when it exists
-  if {[my property wfName] ne ""} {
+  if {[$obj property wfName] ne ""} {
     set wf [my delete_all_answer_data $obj]
     if {$wf ne ""} {$wf delete}
   }
 
   # create a fresh workflow
   set wfName [$obj name].wf
-  my set_property -new 1 wfName $wfName
+  $obj set_property -new 1 wfName $wfName
 
   set wfMaster [my set masterWorkflow]
-  set wfTitle [my property _title]
+  set wfTitle [$obj property _title]
   set questionObjs [my get_questions]
   set wfQuestionNames {}
   set attributeNames {}