Index: openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	29 Jul 2014 11:23:54 -0000	1.8.2.1
+++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	30 Aug 2014 16:44:42 -0000	1.8.2.2
@@ -65,12 +65,12 @@
 
 } -validate {
     {proc
-    { [info commands ::${proc} ne ""] }
-    {The specified procedure name does not exist. Is the -procs.tcl file loaded?}
+	{ {info commands ::$proc} ne "" }
+	{The specified procedure name does not exist. Is the -procs.tcl file loaded?}
     }
     {proc
-    { [apm_callback_has_valid_args -type $type -proc_name $proc] }
-    {The callback proc $proc must be defined with ad_proc [ad_decode [apm_arg_names_for_callback_type -type $type] "" "and should take no arguments" "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"]}
+	{ [apm_callback_has_valid_args -type $type -proc_name $proc] }
+	{The callback proc $proc must be defined with ad_proc [ad_decode [apm_arg_names_for_callback_type -type $type] "" "and should take no arguments" "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"]}
     }
 } -on_submit {