Index: openacs-4/packages/xowf/lib/inclass-quiz-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/inclass-quiz-answer.wf,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xowf/lib/inclass-quiz-answer.wf	25 Nov 2019 14:51:46 -0000	1.1.2.1
+++ openacs-4/packages/xowf/lib/inclass-quiz-answer.wf	26 Nov 2019 18:16:54 -0000	1.1.2.2
@@ -28,9 +28,10 @@
 Action allocate -proc activate {obj} {
   # Called, when we try to create or use a workflow instance
   # via a workflow definition ($obj is a workflow definition)
-  $obj set_property -new 1 name ___[::xo::cc set untrusted_user_id]
-  set parent_obj [::xo::db::CrClass  get_instance_from_db -item_id [$obj parent_id]]
-  :payload [list title [$parent_obj title]]
+  set parent_id [$obj parent_id]
+  set name [ns_md5 $parent_id-[::xo::cc set untrusted_user_id]]
+  set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
+  :payload [list title [$parent_obj title] name $name]
 }
 
 Action initialize -proc activate {obj} {
Index: openacs-4/packages/xowf/lib/online-exam-answer.wf
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/lib/online-exam-answer.wf,v
diff -u -r1.2.2.11 -r1.2.2.12
--- openacs-4/packages/xowf/lib/online-exam-answer.wf	25 Nov 2019 18:20:59 -0000	1.2.2.11
+++ openacs-4/packages/xowf/lib/online-exam-answer.wf	26 Nov 2019 18:16:54 -0000	1.2.2.12
@@ -37,9 +37,10 @@
 Action allocate -proc activate {obj} {
   # Called, when we try to create or use a workflow instance
   # via a workflow definition ($obj is a workflow definition)
-  $obj set_property -new 1 name ___[::xo::cc set untrusted_user_id]
-  set parent_obj [::xo::db::CrClass  get_instance_from_db -item_id [$obj parent_id]]
-  :payload [list title [$parent_obj title]]
+  set parent_id [$obj parent_id]
+  set name [ns_md5 $parent_id-[::xo::cc set untrusted_user_id]]
+  set parent_obj [::xo::db::CrClass get_instance_from_db -item_id $parent_id]
+  :payload [list title [$parent_obj title] name $name]
 }
 
 Action initialize -proc activate {obj} {