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 -r1.5 -r1.6 --- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl 7 Aug 2017 23:47:59 -0000 1.5 +++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl 6 Dec 2017 10:09:20 -0000 1.6 @@ -5,6 +5,16 @@ @cvs-id $Id$ } +if {$::tcl_version eq "8.5"} { + # + # In Tcl 8.5, "::try" was not yet a builtin of Tcl + # + package require try +} +if {[info commands "::try"] eq ""} { + error "This version of OpenACS requires the ::try command (builtin in 8.6+, package for 8.5" +} + ad_proc -private ad_raise {exception {value ""}} { @author rhs@mit.edu @creation-date 2000-09-09