Index: openacs-4/packages/acs-tcl/tcl/exception-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/exception-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	11 Jun 2018 09:14:55 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	25 Jul 2018 01:39:50 -0000	1.10
@@ -15,7 +15,7 @@
     error "This version of OpenACS requires the ::try command (built-in in 8.6+, package for 8.5"
 }
 
-ad_proc -private ad_raise {exception {value ""}} {
+ad_proc -public ad_raise {exception {value ""}} {
     @author rhs@mit.edu
     @creation-date 2000-09-09
 
@@ -26,7 +26,7 @@
     return -code error -errorcode [list "AD" "EXCEPTION" $exception] $value
 }
 
-ad_proc ad_exception {errorCode} {
+ad_proc -public ad_exception {errorCode} {
     @author gustaf.neumann@wu-wien.ac.at
     @creation-date 2015-12-31