Index: openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl	9 Feb 2010 19:05:24 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl	17 Mar 2010 22:03:55 -0000	1.4
@@ -23,8 +23,11 @@
 	@param call Call which is passed to the "exec" command
     } {
 	set handle [ns_proxy get exec_proxy]
-	set return_string [ns_proxy eval $handle "exec $call"]
-	ns_proxy release $handle
+	with_finally -code {
+	    set return_string [ns_proxy eval $handle "exec $call"]
+	} -finally {
+	    ns_proxy release $handle
+	}
 	return $return_string
     }