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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl	17 Sep 2007 08:50:15 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl	17 Sep 2007 13:21:05 -0000	1.2
@@ -12,6 +12,7 @@
 # First check that ns_proxy is configured
 if {![catch {ns_proxy get exec_proxy}]} {
     namespace eval proxy {}
+    
     ad_proc -public proxy::exec {
 	{-call}
     } {
@@ -24,4 +25,8 @@
 	ns_proxy release $handle
 	return $return_string
     }
+
+    # Now rename exec
+    rename exec real_exec
+    ad_proc exec {args} {This is the wrapped version of exec} {proxy::exec -call $args}
 }