Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	21 Jul 2005 09:35:20 -0000	1.29
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	21 Jul 2005 12:10:40 -0000	1.30
@@ -434,10 +434,6 @@
         uplevel [::list proc $proc_name_as_passed args "    ::callback::${callback}::contract__arg_parser\n${log_code}$code_block"]
     } elseif { [llength $switches] == 0 } {
         uplevel [::list proc $proc_name_as_passed $arg_list "${log_code}$code_block"]
-    } elseif { ![string equal $callback ""] && ![string equal $impl ""] } {
-        # 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"]
     } else {
         set parser_code "    ::upvar args args\n"