Index: openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl,v diff -u -N -r1.14 -r1.14.2.1 --- openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl 29 Jan 2019 11:49:52 -0000 1.14 +++ openacs-4/packages/xowf/tcl/test/xowf-test-procs.tcl 5 Mar 2019 10:03:13 -0000 1.14.2.1 @@ -142,7 +142,7 @@ -path $testfolder \ -parent_id $folder_id \ -form_name Workflow.form \ - -update { + -update [subst -nocommands { _title "TIP Workflow" _name tip.wf workflow_definition { @@ -156,7 +156,7 @@ # Action save -roles admin Action propose -next_state proposed -proc activate {obj} { - :log "$obj is going to state [:next_state]" + :log "\$obj is going to state [:next_state]" } Action accept -next_state accepted Action reject -next_state rejected @@ -177,7 +177,7 @@ State implemented -actions {save} } form_constraints {@table:_name,wf_current_state,_creator,_last_modified} - } + }] aa_log "Workflow $lang:tip.wf created"