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.27 -r1.27.2.1
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	30 Mar 2005 01:01:27 -0000	1.27
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	19 Jul 2005 12:22:41 -0000	1.27.2.1
@@ -420,12 +420,12 @@
         set log_code "ns_log Debug \"Deprecated proc $proc_name used\"\n"
     }
 
-    if { ![string equal $callback ""] && ![string equal $impl ""] } {
+    if { [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"]
-    } elseif { [llength $switches] == 0 } {
-        uplevel [::list proc $proc_name_as_passed $arg_list "${log_code}$code_block"]
     } else {
         set parser_code "    ::upvar args args\n"