Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	12 Sep 2003 12:03:34 -0000	1.14
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	15 Sep 2003 15:55:04 -0000	1.15
@@ -151,11 +151,11 @@
   # aa_runseries function to gain visibility of all the variables
   # the constructor has exported.
   #
-  ad_proc _${package_key}__i_$init_class_id {} "
+  ad_proc -private _${package_key}__i_$init_class_id {} "
     aa_log \"Running \\\"$init_class_id\\\" initialisation class constructor\"
     $constructor
   "
-  ad_proc _${package_key}__d_$init_class_id {} "
+  ad_proc -private _${package_key}__d_$init_class_id {} "
     upvar _aa_exports _aa_exports
     foreach v \$_aa_exports(\[list $package_key $init_class_id\]) {
       upvar \$v \$v