Index: irc/irc.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/irc/irc.tcl,v
retrieving revision 1.18
diff -u -b -r1.18 irc.tcl
--- irc/irc.tcl	22 Oct 2003 19:43:27 -0000	1.18
+++ irc/irc.tcl	3 Dec 2003 01:01:55 -0000
@@ -486,7 +486,7 @@
 	# args: arguments to the command
 
 	proc network { cmd args } {
-	    eval [linsert 0 $args [namespace current]::cmd-$cmd]
+        eval [linsert $args 0 [namespace current]::cmd-$cmd]
 	}
 
 	# Create default handlers.
Index: uri/uri.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.tcl,v
retrieving revision 1.23
diff -u -b -r1.23 uri.tcl
--- uri/uri.tcl	27 Aug 2003 21:26:19 -0000	1.23
+++ uri/uri.tcl	3 Dec 2003 01:01:59 -0000
@@ -135,7 +135,7 @@
 
     # Now we can extend the variables which keep track of the registered schemes.
 
-    eval lappend schemes $schemeList
+    eval [linsert $schemeList 0 lappend schemes]
     set schemePattern	"([::join $schemes |]):"
 
     foreach s schemeList {
@@ -325,11 +325,11 @@
 }
 
 proc ::uri::JoinHttp {args} {
-    eval uri::JoinHttpInner http 80 $args
+    eval [linsert $args 0 uri::JoinHttpInner http 80]
 }
 
 proc ::uri::JoinHttps {args} {
-    eval uri::JoinHttpInner https 443 $args
+    eval [linsert $args 0 uri::JoinHttpInner https 443]
 }
 
 proc ::uri::JoinHttpInner {scheme defport args} {
@@ -587,7 +587,7 @@
 		    }
 		    catch { set baseparts(query) $relparts(query) }
 		    catch { set baseparts(fragment) $relparts(fragment) }
-		    return [eval join [array get baseparts]]
+            return [eval [linsert [array get baseparts] 0 join]]
 		}
 		default {
 		    return -code error "unable to resolve relative URL \"$url\""
@@ -635,7 +635,7 @@
 
     switch -- $urlparts(scheme) {
 	file {
-	    return [eval file_geturl [list $url] $args]
+        return [eval [linsert $args 0 file_geturl $url]]
 	}
 	default {
 	    # Load a geturl package for the scheme first and only if
@@ -644,7 +644,7 @@
 	    if {[catch {package require $urlparts(scheme)::geturl}]} {
 		package require $urlparts(scheme)
 	    }
-	    return [eval [list $urlparts(scheme)::geturl $url] $args]
+        return [eval [linsert $args 0 $urlparts(scheme)::geturl $url]]
 	}
     }
 }
@@ -696,7 +696,7 @@
 proc ::uri::join args {
     array set components $args
 
-    return [eval [list Join[string totitle $components(scheme)]] $args]
+    return [eval [linsert $args 0 Join[string totitle $components(scheme)]]]
 }
 
 # ::uri::canonicalize --
@@ -754,7 +754,7 @@
     if { $uri == ".." } { set uri "/" }
 
     set u(path) $uri
-    set uri [eval uri::join [array get u]]
+    set uri [eval [linsert [array get u] 0 uri::join]]
 
     return $uri
 }
Index: html/html.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/html/html.tcl,v
retrieving revision 1.32
diff -u -b -r1.32 html.tcl
--- html/html.tcl	11 Apr 2003 18:27:11 -0000	1.32
+++ html/html.tcl	3 Dec 2003 01:02:04 -0000
@@ -310,7 +310,7 @@
 proc ::html::eval {args} {
 
     # The args must be evaluated in the stack frame above this one.
-    ::eval uplevel $args
+    ::eval [linsert $args 0 uplevel]
     return ""
 }
 
@@ -657,7 +657,7 @@
 
 proc ::html::textInputRow {label name {value {}} args} {
     variable defaults
-    ::set html [row $label [::eval [list html::textInput $name $value] $args]]
+    ::set html [row $label [::eval [linsert $args 0 html::textInput $name $value]]]
     return $html
 }
 
Index: fileutil/fileutil.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.tcl,v
retrieving revision 1.31
diff -u -b -r1.31 fileutil.tcl
--- fileutil/fileutil.tcl	15 Nov 2003 00:23:46 -0000	1.31
+++ fileutil/fileutil.tcl	3 Dec 2003 01:02:10 -0000
@@ -398,7 +398,7 @@
     set npath [file split $path]
 
     if {[string match ${pwd}* $npath]} {
-	set path [eval file join [lrange $npath [llength $pwd] end]]
+    set path [eval [linsert [lrange $npath [llength $pwd] end] 0 file join ]]
     }
     return $path
 }
@@ -419,7 +419,7 @@
     if {$n >= [llength $path]} {
 	return {}
     } else {
-	return [eval file join [lrange $path $n end]]
+    return [eval [linsert [lrange $path $n end] 0 file join]]
     }
 }
 
Index: nntp/nntp.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/nntp/nntp.tcl,v
retrieving revision 1.10
diff -u -b -r1.10 nntp.tcl
--- nntp/nntp.tcl	11 Apr 2003 20:04:39 -0000	1.10
+++ nntp/nntp.tcl	3 Dec 2003 01:02:19 -0000
@@ -170,7 +170,7 @@
 
     # Call the appropriate command with its arguments
 
-    return [eval [list ::nntp::_$cmd $name] $args]
+    return [eval [linsert $args 0 ::nntp::_$cmd $name]]
 }
 
 # ::nntp::okprint --
@@ -762,7 +762,7 @@
 }
 
 proc ::nntp::command {name args} {
-    set res [eval [list ::nntp::cmd $name] $args]
+    set res [eval [linsert $args 0 ::nntp::cmd $name]]
     
     return [::nntp::response $name]
 }
Index: mime/mime.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/mime/mime.tcl,v
retrieving revision 1.34
diff -u -b -r1.34 mime.tcl
--- mime/mime.tcl	21 Nov 2003 06:07:57 -0000	1.34
+++ mime/mime.tcl	3 Dec 2003 01:02:37 -0000
@@ -244,7 +244,7 @@
     variable $token
     upvar 0 $token state
 
-    if {[set code [catch { eval [list mime::initializeaux $token] $args } \
+    if {[set code [catch { eval [linsert $args 0 mime::initializeaux $token] } \
                          result]]} {
         set ecode $errorCode
         set einfo $errorInfo
@@ -927,14 +927,14 @@
         all {
             if {![string compare $state(value) parts]} {
                 foreach part $state(parts) {
-                    eval [list mime::finalize $part] $args
+                    eval [linsert $args 0 mime::finalize $part]
                 }
             }
         }
 
         dynamic {
             for {set cid $state(cid)} {$cid > 0} {incr cid -1} {
-                eval [list mime::finalize $token-$cid] $args
+                eval [linsert $args 0 mime::finalize $token-$cid]
             }
         }
 
Index: inifile/ini.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/inifile/ini.tcl,v
retrieving revision 1.3
diff -u -b -r1.3 ini.tcl
--- inifile/ini.tcl	15 Jul 2003 18:26:59 -0000	1.3
+++ inifile/ini.tcl	3 Dec 2003 01:02:44 -0000
@@ -249,9 +249,9 @@
         return $comments($sec\000$key)
     }
     if { $key == "" } {
-        eval [list lappend comments($sec)] $args
+        eval [linsert $args 0 lappend comments($sec)]
     } else {
-        eval [list lappend comments($sec\000$key)] $args
+        eval [linsert $args 0 lappend comments($sec\000$key)]
     }
 }
 
