Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.113.2.13 -r1.113.2.14
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	7 Oct 2013 16:42:30 -0000	1.113.2.13
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	7 Oct 2013 16:55:59 -0000	1.113.2.14
@@ -144,7 +144,13 @@
     return $form
 }
 
-ad_proc ad_return { args } {
+#
+# GN: maybe this function was useful for ancient versions of tcl, but
+# unless i oversee something, it does not make any sense. The comment
+# argues, that "return -code ..." ignores the error code, but then the
+# function uses "return -code ..." to fix this...
+#
+ad_proc -deprecated ad_return { args } {
 
   Works like the "return" Tcl command, with one difference. Where
   "return" will always return TCL_RETURN, regardless of the -code