Index: openacs-4/packages/acs-api-browser/www/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/display-sql.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-api-browser/www/display-sql.tcl	7 Aug 2017 23:47:46 -0000	1.6
+++ openacs-4/packages/acs-api-browser/www/display-sql.tcl	9 Jan 2018 13:33:13 -0000	1.7
@@ -65,9 +65,9 @@
     set sql ""
     set fn [acs_package_root_dir $package_key]/sql/$url
     if {[file readable $fn]} {
-	if {[catch {
+	ad_try {
 	    set f [open $fn]; set sql [read $f]; close $f
-	} errorMsg]} {
+	} on error {errorMsg} {
 	    ad_return_warning "Problem reading file" "There was a problem reading $url ($errorMsg)"
 	}
     }