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.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	29 Oct 2002 08:14:24 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	27 Oct 2014 16:38:54 -0000	1.4
@@ -6,7 +6,7 @@
     @creation-date 8 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {files:multiple}
     {file_action:multiple}
 }
@@ -32,9 +32,9 @@
 # Process one adp at a time interactively
 set file [lindex $files 0]
 
-set full_file_name "[acs_root_dir]/$file"
+set full_file_name "$::acs::rootdir/$file"
 
-set adp_report_list [lang::util::replace_adp_text_with_message_tags "[acs_root_dir]/$file" report]
+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]