Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	13 Jul 2006 18:34:33 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	14 Jul 2006 00:50:56 -0000	1.33
@@ -16,6 +16,12 @@
     {-arg1:required}
     {-arg2:required}
 } {
+    Writes the arbitrary values of arg1 and arg2 to a file so that we can
+    check that the proc was executed.
+
+    @param arg1 Arbitrary value.
+    @param arg2 Arbitrary value.
+} {
     # Write something to a file so that can check that the proc executed
     set file_path [apm_test_callback_file_path]
     set file_id [open $file_path w]