Index: openacs-4/packages/acs-tcl/acs-tcl.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v diff -u -r1.67.2.7 -r1.67.2.8 --- openacs-4/packages/acs-tcl/acs-tcl.info 2 Oct 2013 22:55:54 -0000 1.67.2.7 +++ openacs-4/packages/acs-tcl/acs-tcl.info 2 Nov 2013 18:26:13 -0000 1.67.2.8 @@ -7,7 +7,7 @@ t t - + OpenACS The Kernel Tcl API library. 2013-09-08 @@ -18,7 +18,7 @@ GPL version 2 3 - + Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/apm-init.tcl'. Fisheye: No comparison available. Pass `N' to diff? 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.4 -r1.4.6.1 --- openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl 17 Mar 2010 22:03:55 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl 2 Nov 2013 18:26:13 -0000 1.4.6.1 @@ -31,7 +31,8 @@ return $return_string } - # Now rename exec - rename exec real_exec + # Now rename exec; protect cases, where file is loaded multiple times + if {[info commands ::real_exec] eq ""} {rename exec real_exec} + ad_proc exec {args} {This is the wrapped version of exec} {proxy::exec -call $args} }