Index: matrix.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/matrix.tcl,v
retrieving revision 1.11
diff -u -b -r1.11 matrix.tcl
--- matrix.tcl	25 Feb 2003 21:12:47 -0000	1.11
+++ matrix.tcl	13 Oct 2003 16:56:20 -0000
@@ -148,7 +148,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::_$cmd $name]
 }
 
 # ::struct::matrix::_add --
@@ -176,7 +176,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__add_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__add_$cmd $name]
 }
 
 # ::struct::matrix::_delete --
@@ -204,7 +204,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__delete_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__delete_$cmd $name]
 }
 
 # ::struct::matrix::_format --
@@ -232,7 +232,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__format_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__format_$cmd $name]
 }
 
 # ::struct::matrix::_get --
@@ -260,7 +260,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__get_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__get_$cmd $name]
 }
 
 # ::struct::matrix::_insert --
@@ -288,7 +288,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__insert_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__insert_$cmd $name]
 }
 
 # ::struct::matrix::_search --
@@ -433,7 +433,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__set_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__set_$cmd $name]
 }
 
 # ::struct::matrix::_swap --
@@ -461,7 +461,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::matrix::__swap_$cmd $name] $args
+    eval [linsert $args 0 ::struct::matrix::__swap_$cmd $name]
 }
 
 # ::struct::matrix::__add_column --
Index: pool.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/pool.tcl,v
retrieving revision 1.2
diff -u -b -r1.2 pool.tcl
--- pool.tcl	6 Aug 2002 20:40:42 -0000	1.2
+++ pool.tcl	13 Oct 2003 16:56:21 -0000
@@ -215,7 +215,7 @@
     
     # pass the call to the pool command indicated by the subcmd argument,
     # and return the result from that command.
-    return [eval ::struct::pool::$subcmd $poolname $args]
+    return [eval [linsert $args 0 ::struct::pool::$subcmd $poolname]]
 }
 
 
Index: prioqueue.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/prioqueue.tcl,v
retrieving revision 1.4
diff -u -b -r1.4 prioqueue.tcl
--- prioqueue.tcl	5 May 2003 16:13:07 -0000	1.4
+++ prioqueue.tcl	13 Oct 2003 16:56:22 -0000
@@ -160,7 +160,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    return [eval [list ::struct::prioqueue::_$cmd $name] $args]
+    return [eval [linsert $args 0 ::struct::prioqueue::_$cmd $name]]
 }
 
 # ::struct::prioqueue::_clear --
Index: queue.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/queue.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 queue.tcl
--- queue.tcl	2 Jun 2000 18:43:56 -0000	1.3
+++ queue.tcl	13 Oct 2003 16:56:22 -0000
@@ -92,7 +92,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    return [eval [list ::struct::queue::_$cmd $name] $args]
+    return [eval [linsert $args 0 ::struct::queue::_$cmd $name]]
 }
 
 # ::struct::queue::_clear --
Index: record.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/record.tcl,v
retrieving revision 1.5
diff -u -b -r1.5 record.tcl
--- record.tcl	29 Jan 2003 06:26:03 -0000	1.5
+++ record.tcl	13 Oct 2003 16:56:23 -0000
@@ -335,7 +335,7 @@
                 }
             }
             incr _level
-            eval Create $def ${inst_}.${inst} [lindex $args $cnt_plus]
+            eval [linsert [lindex $args $cnt_plus] 0 Create $def ${inst_}.${inst}] 
             set args [lreplace $args $cnt $cnt_plus]
 
         } else {
Index: skiplist.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/skiplist.tcl,v
retrieving revision 1.1
diff -u -b -r1.1 skiplist.tcl
--- skiplist.tcl	15 Apr 2003 21:44:51 -0000	1.1
+++ skiplist.tcl	13 Oct 2003 16:56:24 -0000
@@ -164,7 +164,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::skiplist::_$cmd $name] $args
+    eval [linsert $args 0 ::struct::skiplist::_$cmd $name]
 }
 
 ## ::struct::skiplist::_destroy --
Index: stack.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/struct/stack.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 stack.tcl
--- stack.tcl	2 Jun 2000 18:43:56 -0000	1.3
+++ stack.tcl	13 Oct 2003 16:56:25 -0000
@@ -85,7 +85,7 @@
 	set optlist [linsert $optlist "end-1" "or"]
 	error "bad option \"$cmd\": must be $optlist"
     }
-    eval [list ::struct::stack::_$cmd $name] $args
+    eval [linsert $args 0 ::struct::stack::_$cmd $name]
 }
 
 # ::struct::stack::_clear --
