- NaviServer patches

tcl/00-proc-procs.tcl

@@ -907,7 +907,7 @@ ad_proc -public ad_call_method {
     @param object_id the target, it is the first arg to the method
     @param args the remaining arguments
 } {
-    return [apply ${method_name}__[util_memoize "acs_object_type $object_id"] [concat $object_id $args]]
+    return [ad_apply ${method_name}__[util_memoize "acs_object_type $object_id"] [concat $object_id $args]]
 }
 
 ad_proc -public ad_dispatch {
@@ -925,7 +925,7 @@ ad_proc -public ad_dispatch {
     @param object_id the target, it is the first arg to the method
     @param args the remaining arguments
 } {
-    return [apply ${method_name}__$type $args]
+    return [ad_apply ${method_name}__$type $args]
 }
 
 ad_proc -public ad_assert_arg_value_in_list {