Hi,
Here is a diff to 00-proc-procs.tcl of openacs-5.2.x which
allows the callbacks to only have positional parameters:
===== CUT HERE =====
--- 00-proc-procs.tcl~ 2005-07-21 05:11:16.000000000 -0700
+++ 00-proc-procs.tcl 2006-05-16 03:55:22.637411203 -0700
@@ -432,7 +432,7 @@
# We are creating a callback implementation so we invoke the
# arg parser of the contract proc
uplevel [::list proc $proc_name_as_passed args " ::callback::${callback}::contract__arg_parser\n${log_code}$code_block"]
- } elseif { [llength $switches] == 0 } {
+ } elseif { $callback eq "" && [llength $switches] == 0 } {
uplevel [::list proc $proc_name_as_passed $arg_list "${log_code}$code_block"]
} else {
set parser_code " ::upvar args args\n"
===== CUT HERE =====
