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 -N -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	31 Jan 2003 13:12:48 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	9 Feb 2003 22:30:15 -0000	1.3
@@ -68,6 +68,10 @@
     { ![empty_string_p [info procs ::${proc}]] }
     {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]"]}
+    }
 } -on_submit {
     
     apm_set_callback_proc -type $type -version_id $version_id $proc