Index: openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	27 Jul 2006 00:31:26 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	11 Aug 2006 09:09:49 -0000	1.6
@@ -22,7 +22,7 @@
             ad_proc -callback contract { arg1 arg2 } { docs } -
         } error]
 
-    ad_proc -callback a_callback { arg1 arg2 } { this is a test callback } -
+    ad_proc -callback a_callback { -arg1 arg2 } { this is a test callback } -
     set callback_procs [info procs ::callback::a_callback::*]
     aa_true "creation of a valid callback contract with '-' body" \
         [expr {[lsearch -exact \