Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.146 -r1.147
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	22 Dec 2017 14:14:20 -0000	1.146
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	17 Jan 2018 22:21:32 -0000	1.147
@@ -4274,11 +4274,13 @@
 
     } {
         ns_mutex lock $mutex
-        set err [catch {uplevel $script} result]
-        ns_mutex unlock $mutex
-        if {$err} {
-            error $result
-        }
+        ad_try {
+            set result [uplevel $script]
+        } on error {errorMsg} {
+            error $errorMsg
+        } finally {
+            ns_mutex unlock $mutex
+        } 
         return $result
     }
 }