ad_raise exception [ value ] in packages/acs-tcl/tcl/exception-procs.tcl
return -code error -errorcode [list "AD" "EXCEPTION" $exception] $value