Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.94.2.19 -r1.94.2.20
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Aug 2014 20:03:04 -0000	1.94.2.19
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	31 Aug 2014 14:48:37 -0000	1.94.2.20
@@ -1718,20 +1718,18 @@
     @author Peter Marklund
 } {
 
-    ns_log notice "[list info commands ::$proc_name] [info commands ::$proc_name]"
-
     if { [info commands ::$proc_name] eq "" } {
         return 0
     }
 
     set test_arg_list ""
     foreach arg_name [apm_arg_names_for_callback_type -type $type] {
-        append test_arg_list " -${arg_name} value"
+        lappend test_arg_list -$arg_name value
     }
 
     if { $test_arg_list eq "" } {
         # The callback proc should take no args
-        return [expr {[info args ::${proc_name}] eq ""}]
+        return [expr {[info args ::$proc_name] eq ""}]
     }
 
     # The callback proc should have required arg switches. Check