Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -N -r1.28.2.36 -r1.28.2.37
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	29 Jul 2020 11:53:26 -0000	1.28.2.36
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	13 Aug 2020 14:38:59 -0000	1.28.2.37
@@ -580,7 +580,7 @@
        Class create Property -superclass  ::xowf::Property -set abstract 1
        [:default_definition]
        $workflow_definition"} errorMsg]} {
-      ns_log error "Error in workflow definition: $errorMsg\n$::errorInfo\n\
+      ns_log error "Error in workflow definition ([${:object} name]): $errorMsg\n$::errorInfo\n\
          ===== default_definition: [:default_definition] \n\
          ===== workflow_definition: $workflow_definition"
       :msg -html t "Error in workflow definition: [ns_quotehtml $errorMsg]"
@@ -617,7 +617,7 @@
     # multiple workflow instances are created for a single workflow
     # definition in a request.
     #
-    #:log START-CREATES
+    #:log START-CREATES-sharedWorkflowDefinition=$::xowf::sharedWorkflowDefinition
     if {$::xowf::sharedWorkflowDefinition} {
       if {[${:object} is_wf]} {
         set source_obj ${:object}
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.284.2.110 -r1.284.2.111
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Aug 2020 15:22:19 -0000	1.284.2.110
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	13 Aug 2020 14:43:09 -0000	1.284.2.111
@@ -3621,12 +3621,12 @@
       return 0
     } else {
       set value [:value]
-      #:log "enumeration CORRECT? answers [llength ${:answer}] options [llength ${:options}]"
+      #:log "enumeration ${:name} CORRECT? answers [llength ${:answer}] options [llength ${:options}]"
       set :correction {}
       set r 0; set f 0; set rk 0; set fk 0; set W 0; set O 0; set R 0
       foreach o ${:options} a ${:answer} {
         lassign $o label v
-        #:log "enumeration CORRECT? <$a> <$v in $value> -> [expr {$v in $value}]"
+        #:log "enumeration ${:name} CORRECT? <$a> <$v in $value> -> [expr {$v in $value}]"
         #
         # A correct answer might be:
         # - a mark on a correct entry
@@ -3638,7 +3638,7 @@
         } else {
           set correctly_answered [expr {$v ni $value}]
           incr f
-          #:log "enumeration - CORRECT? <$a> <$v ni $value> -> [expr {$v ni $value}]"
+          #:log "enumeration - ${:name} CORRECT? <$a> <$v ni $value> -> [expr {$v ni $value}]"
         }
         lappend :correction $correctly_answered
         if {$correctly_answered} {