Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	9 Apr 2018 21:16:06 -0000	1.15
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	1 May 2018 08:31:43 -0000	1.16
@@ -132,7 +132,7 @@
     set pair [list $old_item_id $old_revision_id]
 
     if { ![template::util::is_nil item_id_stack] } {
-      set item_id_stack [concat [list $pair] $item_id_stack]
+      set item_id_stack [linsert $item_id_stack 0 $pair]
     } else {
       # This is the first id pushed - also clear the cache
       set item_id_stack [list $pair]
@@ -629,7 +629,7 @@
 
   @private handle_item
 
-  Render an item either by looking it up in the the temporary cache,
+  Render an item either by looking it up in the temporary cache,
   or by using the appropriate mime handler. Once the item is rendered, it 
   is stored in the temporary cache under a key which combines the item_id,
   any extra HTML parameters, and a flag which specifies whether the item
@@ -717,8 +717,7 @@
     }
 
     # Call the appropriate handler function
-    set code [list $item_handler $item_id]
-    lappend code {*}$args
+    set code [list $item_handler $item_id {*}$args]
 
     # Pass the revision_id
     if { ![info exists opts(revision_id)] } {