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.40.2.4 -r1.40.2.5
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	2 Jan 2016 14:01:59 -0000	1.40.2.4
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	12 Sep 2016 11:07:40 -0000	1.40.2.5
@@ -39,7 +39,7 @@
     # (like for proc based ad_procs), but the real argument/parameter
     # list, we address these differences here for all needed cases.
     #
-    if {[info proc $proc_name_old] ne ""} {
+    if {[info procs $proc_name_old] ne ""} {
         #
         # We copy a regular Tcl proc
         #