Index: openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	7 Aug 2017 23:47:45 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	8 May 2018 22:37:18 -0000	1.7
@@ -4,9 +4,9 @@
 
     @author Peter Marklund (peter@collaboraid.biz)
     @creation-date 8 October 2002
-    @cvs-id $Id$  
+    @cvs-id $Id$
 } {
-    version_id:naturalnum,notnull    
+    version_id:naturalnum,notnull
     {files:multiple}
     {file_action:multiple}
 }
@@ -39,8 +39,7 @@
 set full_file_name "$::acs::rootdir/$file"
 
 set adp_report_list [lang::util::replace_adp_text_with_message_tags "$::acs::rootdir/$file" report]
-set adp_replace_list [lindex $adp_report_list 0]
-set adp_no_replace_list [lindex $adp_report_list 1]
+lassign $adp_report_list adp_replace_list adp_no_replace_list
 
 if { [llength $adp_replace_list] == 0 } {
     # There are no replacements to choose keys for so go straight to the processing result page