Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.97.2.3 -r1.97.2.4
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	30 Sep 2013 11:38:40 -0000	1.97.2.3
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	5 Oct 2013 12:36:52 -0000	1.97.2.4
@@ -1440,7 +1440,7 @@
 		  -creation_ip $creation_ip \
 		  ""]
       #[self class] set during_fetch 1
-      if {[catch {eval my create ::$id $args} errorMsg]} {
+      if {[catch {my create ::$id {*}$args} errorMsg]} {
 	my log "Error: $errorMsg, $::errorInfo"
       }
       #[self class] unset during_fetch
Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.54.2.1 -r1.54.2.2
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	17 Sep 2013 17:49:23 -0000	1.54.2.1
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	5 Oct 2013 12:36:53 -0000	1.54.2.2
@@ -72,7 +72,7 @@
     # Create a new instance of the current class and configure it.
     #
     #my log "tdom START $level [self], cmd='$configurecmds'"
-    set me [eval my new -destroy_on_cleanup $configurecmds]
+    set me [my new -destroy_on_cleanup {*}$configurecmds]
     #my log "tdom CREATED $level $me ([$me info class])"
 
     #
Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v
diff -u -r1.6 -r1.6.8.1
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	26 Nov 2008 09:30:07 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	5 Oct 2013 12:36:53 -0000	1.6.8.1
@@ -12,7 +12,7 @@
     # first, excute the command on the local server
     eval $args
     # then, distribute the command in the cluster
-    eval ::xo::Cluster broadcast $args
+    ::xo::Cluster broadcast {*}$args
   }
 
   proc cache_flush_all {cache pattern} {
@@ -113,7 +113,7 @@
   #
   Cluster proc broadcast args {
     foreach server [my info instances] {
-      eval $server message $args
+       $server message {*}$args
     }
   }
   Cluster instproc message args {
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.50.2.2 -r1.50.2.3
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Sep 2013 18:51:10 -0000	1.50.2.2
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	5 Oct 2013 12:36:53 -0000	1.50.2.3
@@ -1042,8 +1042,8 @@
                          "[my set __title_prefix] ($name)" : $name}]
       }
       #my msg --[subst [[self class] set content_item__new_args]]
-      set item_id [eval ::xo::db::sql::content_item new \
-		       [[self class] set content_item__new_args]]
+      set item_id [::xo::db::sql::content_item new \
+		       {*}[[self class] set content_item__new_args]]
       if {$storage_type eq "file"} {
         set text [cr_create_content_file $item_id $revision_id $import_file]
       }
Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.41.2.6 -r1.41.2.7
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	30 Sep 2013 11:39:39 -0000	1.41.2.6
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	5 Oct 2013 12:36:53 -0000	1.41.2.7
@@ -163,7 +163,7 @@
   } else {
     Throttle instproc server_threads {} {
       # flatten the list
-      return [eval concat [ns_server threads]]
+      return [concat {*}[ns_server threads]]
     }
   }
   Throttle instproc update_threads_state {} {
Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	13 Sep 2012 16:05:28 -0000	1.10
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	5 Oct 2013 12:36:53 -0000	1.10.2.1
@@ -32,7 +32,7 @@
   }
 
   Tree proc include_head_entries {{-renderer mktree} args} {
-    eval [my renderer $renderer] include_head_entries $args
+    [my renderer $renderer] include_head_entries {*}$args
   }
 
   #