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.21 -r1.22
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	11 Mar 2005 23:15:20 -0000	1.21
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	11 Mar 2005 23:41:52 -0000	1.22
@@ -177,7 +177,8 @@
             # We are creating an callback contract...
             if {!( $n_args_remaining == 3 || $n_args_remaining == 2 ) } {
                 return -code error "ad_proc callback contract must have: arguments docs \[empty_code_body\]"
-            } elseif {![string equal [lindex $args end] ""]
+            } elseif {$n_args_remaining == 3
+                      && ![string equal [lindex $args end] ""]
                       && ![string equal [lindex $args end] "-"]} {
                 return -code error "ad_proc callback contract must have an empty code_body"
             }