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.29 -r1.76.2.30
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	16 Dec 2019 18:47:04 -0000	1.76.2.29
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Apr 2020 18:19:29 -0000	1.76.2.30
@@ -1292,8 +1292,9 @@
         set live_revision_icon /resources/acs-subsite/radiochecked.gif
       }
 
-      set live_revision_link [export_vars -base $base \
-                                  {{m make-live-revision} {revision_id $version_id}}]
+      set live_revision_link [export_vars -base $base {
+        {m make-live-revision} {revision_id $version_id}
+      }]
 
       t1 add \
           -version_number $version_number: \
Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -N -r1.75.2.14 -r1.75.2.15
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	21 Mar 2020 06:18:35 -0000	1.75.2.14
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	2 Apr 2020 18:23:41 -0000	1.75.2.15
@@ -170,8 +170,8 @@
     the values from the url (second priority) and the default
     values from the signature
   } {
-    set source [expr {[info exists :__caller_parameters] ?
-                      [self] : [:info parent]}]
+    set source [expr {[info exists :__caller_parameters]
+                      ? [self] : [:info parent]}]
     $source instvar __caller_parameters
 
     if {![info exists :__including_page]} {