Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v diff -u -N -r1.76.2.25 -r1.76.2.26 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 16 Sep 2019 11:45:07 -0000 1.76.2.25 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 29 Sep 2019 16:09:03 -0000 1.76.2.26 @@ -940,14 +940,14 @@ } # - # The modifying_user is not maintained by the CR (bug?) + # The modifying_user is not maintained by the CR (bug?). # xotcl-core handles this by having the modifying user as # creation_user of the revision. # - # Caveat: the creation_user fetched is different if we fetch via - # item_id (the creation_user is the creator of the item) or if we - # fetch via revision_id (the creation_user is the creator of the - # revision) + # Caveat: the creation_user fetched can be different if we fetch + # via item_id (the creation_user is the creator of the item) or if + # we fetch via revision_id (the creation_user is the creator of + # the revision). set creation_user [expr {[info exists modifying_user] ? $modifying_user :