Index: openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	10 Jan 2007 21:21:59 -0000	1.11
+++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	27 Oct 2014 16:38:53 -0000	1.12
@@ -29,7 +29,7 @@
     set attribute_value [ns_set iget [rp_getform] $attribute_name]
 
     if { [info exists attribute(validation_proc)] } {
-        set attribute_error [eval $attribute(validation_proc) $attribute_value]
+        set attribute_error [$attribute(validation_proc) $attribute_value]
 
         if { $attribute_error ne "" } {
             ad_return_complaint 1 $attribute_error