From 076a7e2839881c03d0a98a8fc50823aef42ad79a Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 30 Oct 2020 13:27:52 +0000
Subject: Add "{}" around many "expr" commands in testcases. Also in doc/expr.n

---
 doc/expr.n               |   9 +-
 tests/append.test        |   4 +-
 tests/appendComp.test    |   4 +-
 tests/autoMkindex.test   |   4 +-
 tests/basic.test         |   2 +-
 tests/chanio.test        |  20 +-
 tests/clock.test         |   6 +-
 tests/cmdAH.test         |   2 +-
 tests/cmdIL.test         |   2 +-
 tests/compExpr.test      |   4 +-
 tests/compile.test       |  32 +--
 tests/exec.test          |   3 -
 tests/execute.test       |  30 +--
 tests/for-old.test       |  14 +-
 tests/for.test           |  62 +++---
 tests/history.test       |  18 +-
 tests/http.test          |   2 +-
 tests/httpold.test       |   2 +-
 tests/if.test            |  48 ++---
 tests/info.test          |  10 +-
 tests/interp.test        |  44 ++---
 tests/io.test            |   6 +-
 tests/list.test          |  14 +-
 tests/load.test          | 120 +++++------
 tests/lsearch.test       |   2 +-
 tests/lsetComp.test      | 506 +++++++++++++++++++++++------------------------
 tests/mathop.test        |   6 +-
 tests/namespace-old.test |   4 +-
 tests/oo.test            |   8 +-
 tests/opt.test           |   4 +-
 tests/parse.test         |   4 +-
 tests/parseOld.test      |   2 +-
 tests/pkgMkIndex.test    |  12 +-
 tests/proc-old.test      |  12 +-
 tests/proc.test          |   2 +-
 tests/pwd.test           |   5 +-
 tests/remote.tcl         |   8 +-
 tests/socket.test        |   4 +-
 tests/subst.test         |  12 +-
 tests/tcltest.test       |   2 +-
 tests/trace.test         |  64 +++---
 tests/uplevel.test       |  10 +-
 tests/var.test           |   2 +-
 tests/while-old.test     |   8 +-
 tests/while.test         |  44 ++---
 tests/winDde.test        |   6 +-
 tests/zlib.test          |   8 +-
 47 files changed, 600 insertions(+), 597 deletions(-)

diff --git a/doc/expr.n b/doc/expr.n
index 1fd4c4e..42da868 100644
--- a/doc/expr.n
+++ b/doc/expr.n
@@ -107,9 +107,9 @@ will produce the value on the right side of the line:
 .PP
 .CS
 .ta 9c
-\fBexpr\fR 3.1 + $a	\fI6.1\fR
-\fBexpr\fR 2 + "$a.$b"	\fI5.6\fR
-\fBexpr\fR 4*[llength "6 2"]	\fI8\fR
+\fBexpr\fR {3.1 + $a}	\fI6.1\fR
+\fBexpr\fR {2 + "$a.$b"}	\fI5.6\fR
+\fBexpr\fR {4*[llength "6 2"]}	\fI8\fR
 \fBexpr\fR {{word one} < "word $a"}	\fI0\fR
 .CE
 .SS OPERATORS
@@ -246,7 +246,7 @@ just as in C, which means that operands are not evaluated if they are
 not needed to determine the outcome.  For example, in the command
 .PP
 .CS
-\fBexpr\fR {$v ? [a] : [b]}
+\fBexpr\fR {$v?[a]:[b]}
 .CE
 .PP
 only one of
@@ -496,4 +496,5 @@ Copyright (c) 2005 by Kevin B. Kenny <kennykb@acm.org>. All rights reserved.
 .fi
 '\" Local Variables:
 '\" mode: nroff
+'\" fill-column: 78
 '\" End:
diff --git a/tests/append.test b/tests/append.test
index ef4a194..0b06c8f 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -32,7 +32,7 @@ test append-1.3 {append command} {
 
 test append-2.1 {long appends} {
     set x ""
-    for {set i 0} {$i < 1000} {set i [expr $i+1]} {
+    for {set i 0} {$i < 1000} {incr i} {
 	append x "foobar "
     }
     set y "foobar"
@@ -158,7 +158,7 @@ test append-5.1 {long lappends} -setup {
 	if {$l != $size} {
 	    return "length mismatch: should have been $size, was $l"
 	}
-	for {set i 0} {$i < $size} {set i [expr $i+1]} {
+	for {set i 0} {$i < $size} {incr i} {
 	    set j [lindex $var $i]
 	    if {$j ne "item $i"} {
 		return "element $i should have been \"item $i\", was \"$j\""
diff --git a/tests/appendComp.test b/tests/appendComp.test
index 66941a9..a6e78d2 100644
--- a/tests/appendComp.test
+++ b/tests/appendComp.test
@@ -41,7 +41,7 @@ test appendComp-1.3 {append command} {
 test appendComp-2.1 {long appends} {
     proc foo {} {
 	set x ""
-	for {set i 0} {$i < 1000} {set i [expr $i+1]} {
+	for {set i 0} {$i < 1000} {incr i} {
 	    append x "foobar "
 	}
 	set y "foobar"
@@ -223,7 +223,7 @@ test appendComp-5.1 {long lappends} -setup {
     }
 } -body {
     set x ""
-    for {set i 0} {$i < 300} {set i [expr $i+1]} {
+    for {set i 0} {$i < 300} {incr i} {
 	lappend x "item $i"
     }
     check $x 300
diff --git a/tests/autoMkindex.test b/tests/autoMkindex.test
index 6c57de0..6adb403 100644
--- a/tests/autoMkindex.test
+++ b/tests/autoMkindex.test
@@ -40,8 +40,8 @@ namespace import -force blt::*
 # Should be able to handle "proc" definitions, even if they are preceded by
 # white space.
 
-proc normal {x y} {return [expr $x+$y]}
-  proc indented {x y} {return [expr $x+$y]}
+proc normal {x y} {return [expr {$x+$y}]}
+  proc indented {x y} {return [expr {$x+$y}]}
 
 #
 # Should be able to handle proc declarations within namespaces, even if they
diff --git a/tests/basic.test b/tests/basic.test
index 6f8d350..bf2b08f 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -674,7 +674,7 @@ proc l3 {} {
 # Do all tests once byte compiled and once with direct string evaluation
 for {set noComp 0} {$noComp <= 1} {incr noComp} {
 
-if $noComp {
+if {$noComp} {
     interp alias {} run {} testevalex
     set constraints testevalex
 } else {
diff --git a/tests/chanio.test b/tests/chanio.test
index c811b00..58116ba 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -3045,7 +3045,7 @@ test chan-io-30.13 {Tcl_Write crlf on block boundary, Tcl_Read auto} -setup {
     string length [chan read $f]
 } -cleanup {
     chan close $f
-} -result [expr 700*15+1]
+} -result [expr {700*15 + 1}]
 test chan-io-30.14 {Tcl_Write crlf on block boundary, Tcl_Read crlf} -setup {
     file delete $path(test1)
 } -body {
@@ -3062,7 +3062,7 @@ test chan-io-30.14 {Tcl_Write crlf on block boundary, Tcl_Read crlf} -setup {
     string length [chan read $f]
 } -cleanup {
     chan close $f
-} -result [expr 700*15+1]
+} -result [expr {700*15 + 1}]
 test chan-io-30.15 {Tcl_Write mixed, Tcl_Read auto} -setup {
     file delete $path(test1)
 } -body {
@@ -3904,7 +3904,7 @@ test chan-io-31.31 {Tcl_Write crlf on block boundary, Tcl_Gets crlf} -setup {
     }
     chan close $f
     string length $c
-} -result [expr 700*15+1]
+} -result [expr {700*15 + 1}]
 test chan-io-31.32 {Tcl_Write crlf on block boundary, Tcl_Gets auto} -setup {
     file delete $path(test1)
     set c ""
@@ -3924,7 +3924,7 @@ test chan-io-31.32 {Tcl_Write crlf on block boundary, Tcl_Gets auto} -setup {
     }
     chan close $f
     string length $c
-} -result [expr 700*15+1]
+} -result [expr {700*15 + 1}]
 
 # Test Tcl_Read and buffering.
 
@@ -5335,7 +5335,7 @@ test chan-io-40.2 {POSIX open access modes: CREAT} -setup {
 } -constraints {unix} -body {
     set f [open $path(test3) {WRONLY CREAT} 0600]
     file stat $path(test3) stats
-    set x [format "%#o" [expr $stats(mode)&0o777]]
+    set x [format "%#o" [expr {$stats(mode) & 0o777}]]
     chan puts $f "line 1"
     chan close $f
     set f [open $path(test3) r]
@@ -5349,7 +5349,7 @@ test chan-io-40.3 {POSIX open access modes: CREAT} -setup {
     # This test only works if your umask is 2, like ouster's.
     chan close [open $path(test3) {WRONLY CREAT}]
     file stat $path(test3) stats
-    format "%#o" [expr $stats(mode)&0o777]
+    format "%#o" [expr {$stats(mode) & 0o777}]
 } -result [format %#4o [expr {0o666 & ~ $umaskValue}]]
 test chan-io-40.4 {POSIX open access modes: CREAT} -setup {
     file delete $path(test3)
@@ -6716,7 +6716,7 @@ test chan-io-52.6 {TclCopyChannel} -setup {
     set f2 [open $path(test1) w]
     chan configure $f1 -translation lf -blocking 0
     chan configure $f2 -translation lf -blocking 0
-    set s0 [chan copy $f1 $f2 -size [expr [file size $thisScript] + 5]]
+    set s0 [chan copy $f1 $f2 -size [expr {[file size $thisScript] + 5}]]
     set result [list [chan configure $f1 -blocking] [chan configure $f2 -blocking]]
     chan close $f1
     chan close $f2
@@ -6958,7 +6958,7 @@ test chan-io-53.5 {CopyData: error during chan copy} {socket fcopy} {
     chan close $listen	;# This means the socket open never really succeeds
     chan copy $in $out -command [namespace code FcopyTestDone]
     variable fcopyTestDone
-    if ![info exists fcopyTestDone] {
+    if {![info exists fcopyTestDone]} {
 	vwait [namespace which -variable fcopyTestDone]		;# The error occurs here in the b.g.
     }
     chan close $in
@@ -6978,7 +6978,7 @@ test chan-io-53.6 {CopyData: error during chan copy} -setup {
     set out [open $path(test1) w]
     chan copy $in $out -command [namespace code FcopyTestDone]
     variable fcopyTestDone
-    if ![info exists fcopyTestDone] {
+    if {![info exists fcopyTestDone]} {
 	vwait [namespace which -variable fcopyTestDone]
     }
     return $fcopyTestDone	;# 0 for plain end of file
@@ -7031,7 +7031,7 @@ test chan-io-53.7 {CopyData: Flooding chan copy from pipe} -setup {
 	vwait [namespace which -variable fcopyTestDone]
     }
     # -1=error 0=script error N=number of bytes
-    expr ($fcopyTestDone == 0) ? $fcopyTestCount : -1
+    expr {($fcopyTestDone == 0) ? $fcopyTestCount : -1}
 } -cleanup {
     catch {chan close $in}
     chan close $out
diff --git a/tests/clock.test b/tests/clock.test
index 6d502d4..db43a67 100644
--- a/tests/clock.test
+++ b/tests/clock.test
@@ -35440,7 +35440,7 @@ test clock-32.1 {scan/format across the Gregorian change} {
 
 # clock clicks
 test clock-33.1 {clock clicks tests} {
-    expr [clock clicks]+1
+    expr {[clock clicks] + 1}
     concat {}
 } {}
 test clock-33.2 {clock clicks tests} {
@@ -35453,7 +35453,7 @@ test clock-33.3 {clock clicks tests} {
     list [catch {clock clicks foo} msg] $msg
 } {1 {bad option "foo": must be -milliseconds or -microseconds}}
 test clock-33.4 {clock clicks tests} {
-    expr [clock clicks -milliseconds]+1
+    expr {[clock clicks -milliseconds] + 1}
     concat {}
 } {}
 test clock-33.4a {clock milliseconds} {
@@ -35909,7 +35909,7 @@ test clock-34.68 {clock scan tests (merid and TZ)} {
 
 # clock seconds
 test clock-35.1 {clock seconds tests} {
-    expr [clock seconds]+1
+    expr {[clock seconds] + 1}
     concat {}
 } {}
 test clock-35.2 {clock seconds tests} {
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 3809f23..d64ebbb 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -1092,7 +1092,7 @@ test cmdAH-23.4 {Tcl_FileObjCmd: lstat} -setup {
     unset -nocomplain stat
 } -constraints {unix nonPortable} -body {
     file lstat $linkfile stat
-    list $stat(nlink) [expr $stat(mode)&0777] $stat(type)
+    list $stat(nlink) [expr {$stat(mode) & 0o777}] $stat(type)
 } -result {1 511 link}
 test cmdAH-23.5 {Tcl_FileObjCmd: lstat errors} {nonPortable} {
     list [catch {file lstat _bogus_ stat} msg] [string tolower $msg] \
diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index 27f1df1..06171e4 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -498,7 +498,7 @@ test cmdIL-5.5 {lsort with list style index and sharing} -body {
 	foreach e $l {lappend n [list [expr {rand()}] $e]}
 	lindex [lsort -real -index $l $n] 1 1
     }
-    expr srand(1)
+    expr {srand(1)}
     test_lsort 0
 } -result 0 -cleanup {
     rename test_lsort ""
diff --git a/tests/compExpr.test b/tests/compExpr.test
index d3f1345..7257726 100644
--- a/tests/compExpr.test
+++ b/tests/compExpr.test
@@ -314,7 +314,7 @@ test compExpr-4.9 {CompileCondExpr procedure, error in "false" clause} {
 } {0 15}
 
 test compExpr-5.1 {CompileMathFuncCall procedure, math function found} {
-    format %.6g [expr atan2(1.0, 2.0)]
+    format %.6g [expr {atan2(1.0, 2.0)}]
 } 0.463648
 test compExpr-5.2 {CompileMathFuncCall procedure, math function not found} -body {
     expr {do_it()}
@@ -329,7 +329,7 @@ test compExpr-5.5 {CompileMathFuncCall procedure, not enough arguments} -body {
     expr {atan2(1.0)}
 } -returnCodes error -match glob -result {not enough arguments for math function*}
 test compExpr-5.6 {CompileMathFuncCall procedure, complex argument} {
-    format %.6g [expr pow(2.1, 27.5-(24.4*(5%2)))]
+    format %.6g [expr {pow(2.1, 27.5-(24.4*(5%2)))}]
 } 9.97424
 test compExpr-5.7 {CompileMathFuncCall procedure, error in argument} -body {
     expr {sinh(2.*)}
diff --git a/tests/compile.test b/tests/compile.test
index 0663270..4a65330 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -124,7 +124,7 @@ test compile-3.4 {TclCompileCatchCmd: bcc'ed [return] is caught} {
     proc foo {} {
 	set fail [catch {
 	    return 1
-	}] ; # {}	
+	}] ; # {}
 	return 2
     }
     foo
@@ -134,8 +134,8 @@ test compile-3.5 {TclCompileCatchCmd: recover from error, [Bug 705406]} {
 	catch {
 	    if {[a]} {
 		if b {}
-	    }   
-	}   
+	    }
+	}
     }
     list [catch foo msg] $msg
 } {0 1}
@@ -203,7 +203,7 @@ test compile-4.1 {TclCompileForCmd: command substituted test expression} {
     set i 0
     set j 0
     # Should be "forever"
-    for {} [expr $i < 3] {} {
+    for {} [expr {$i < 3}] {} {
 	set j [incr i]
 	if {$j > 3} break
     }
@@ -277,7 +277,7 @@ test compile-7.1 {TclCompileWhileCmd: command substituted test expression} {
     set i 0
     set j 0
     # Should be "forever"
-    while [expr $i < 3] {
+    while [expr {$i < 3}] {
 	set j [incr i]
 	if {$j > 3} break
     }
@@ -336,7 +336,7 @@ test compile-11.6 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
     apply {{} { set r [list foobar] ; incr}}
 } -returnCodes error -result {wrong # args: should be "incr varName ?increment?"}
 test compile-11.7 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
-    apply {{} { set r [list foobar] ; expr !a }}
+    apply {{} { set r [list foobar] ; expr [concat !a] }}
 } -returnCodes error -match glob -result *
 test compile-11.8 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
     apply {{} { set r [list foobar] ; expr {!a} }}
@@ -346,13 +346,13 @@ test compile-11.9 {Tcl_Append*: ensure Tcl_ResetResult is used properly} -body {
     list [catch {p} msg] $msg
 } -returnCodes error -result {unmatched open brace in list}
 
-# 
+#
 # Special section for tests of tclLiteral.c
 # The following tests check for incorrect memory handling in
 # TclReleaseLiteral. They are only effective when tcl is compiled with
 # TCL_MEM_DEBUG
 #
-# Special test for leak on interp delete [Bug 467523]. 
+# Special test for leak on interp delete [Bug 467523].
 test compile-12.1 {testing literal leak on interp delete} -setup {
     proc getbytes {} {
 	set lines [split [memory info] "\n"]
@@ -361,10 +361,10 @@ test compile-12.1 {testing literal leak on interp delete} -setup {
 } -constraints memory -body {
     set end [getbytes]
     for {set i 0} {$i < 5} {incr i} {
-	interp create foo 
-	foo eval { 
+	interp create foo
+	foo eval {
 	    namespace eval bar {}
-	} 
+	}
 	interp delete foo
 	set tmp $end
 	set end [getbytes]
@@ -385,7 +385,7 @@ test compile-12.2 {testing error on literal deletion} -constraints {memory exec}
 	}
 	puts 0
     } source.file]
-    exec [interpreter] $sourceFile 
+    exec [interpreter] $sourceFile
 } -cleanup {
     catch {removeFile $sourceFile}
 } -result 0
@@ -510,7 +510,7 @@ test compile-13.3 {TclCompileScript: testing check of max depth by nested script
     ti eval {set result {}}
 } -body {
     # Test different compilation variants (instructions evalStk, invokeStk, etc),
-    # with 500 nested scripts (bodies). It must generate "too many nested compilations" 
+    # with 500 nested scripts (bodies). It must generate "too many nested compilations"
     # error for any variant we're testing here:
     ti eval {foreach cmd {eval "if 1" try catch} {
 	set c [gencode 500 $cmd]
@@ -518,7 +518,7 @@ test compile-13.3 {TclCompileScript: testing check of max depth by nested script
     }}
     #puts $errors
     # all of nested calls exceed the limit, so must end with "too many nested compilations"
-    # (or evaluations, depending on compile method/instruction and "mixed" compile within 
+    # (or evaluations, depending on compile method/instruction and "mixed" compile within
     # evaliation), so no one succeeds, the result must be empty:
     ti eval {set result}
 } -result {}
@@ -539,7 +539,7 @@ test compile-14.1 {testing errors in element name; segfault?} {} {
 test compile-14.2 {testing element name "$"} -body {
     unset -nocomplain a
     set a() 1
-    set a(1) 2 
+    set a(1) 2
     set a($) 3
     list [set a()] [set a(1)] [set a($)] [unset a() a(1); lindex [array names a] 0]
 } -cleanup {unset a} -result [list 1 2 3 {$}]
@@ -564,7 +564,7 @@ test compile-15.5 {proper TCL_RETURN code from [return]} {
 
 for {set noComp 0} {$noComp <= 1} {incr noComp} {
 
-if $noComp {
+if {$noComp} {
     interp alias {} run {} testevalex
     set constraints testevalex
 } else {
diff --git a/tests/exec.test b/tests/exec.test
index 3aaec6e..b07099b 100644
--- a/tests/exec.test
+++ b/tests/exec.test
@@ -707,9 +707,6 @@ test exec-20.1 {exec .CMD file} -constraints {win} -body {
     exec [makeFile "echo %1> $log" exec201.CMD] "Testing exec-20.1"
     viewFile $log
 } -result "\"Testing exec-20.1\""
-    
-
-
 
 # ----------------------------------------------------------------------
 # cleanup
diff --git a/tests/execute.test b/tests/execute.test
index 14c2f76..4b0f87f 100644
--- a/tests/execute.test
+++ b/tests/execute.test
@@ -821,49 +821,49 @@ test execute-7.10 {Wide int handling in INST_MOD} {
     expr {((wide(1)<<60)-1) % 0x400000000}
 } 17179869183
 test execute-7.11 {Wide int handling in INST_LSHIFT} {
-    expr wide(42)<<30
+    expr {wide(42) << 30}
 } 45097156608
 test execute-7.12 {Wide int handling in INST_LSHIFT} {
-    expr 12345678901<<3
+    expr {12345678901 << 3}
 } 98765431208
 test execute-7.13 {Wide int handling in INST_RSHIFT} {
-    expr 0x543210febcda9876>>7
+    expr {0x543210febcda9876 >> 7}
 } 47397893236700464
 test execute-7.14 {Wide int handling in INST_RSHIFT} {
-    expr wide(0x9876543210febcda)>>7
+    expr {wide(0x9876543210febcda) >> 7}
 } -58286587177206407
 test execute-7.15 {Wide int handling in INST_BITOR} {
-    expr wide(0x9876543210febcda) | 0x543210febcda9876
+    expr {wide(0x9876543210febcda) | 0x543210febcda9876}
 } -2560765885044310786
 test execute-7.16 {Wide int handling in INST_BITXOR} {
-    expr wide(0x9876543210febcda) ^ 0x543210febcda9876
+    expr {wide(0x9876543210febcda) ^ 0x543210febcda9876}
 } -3727778945703861076
 test execute-7.17 {Wide int handling in INST_BITAND} {
-    expr wide(0x9876543210febcda) & 0x543210febcda9876
+    expr {wide(0x9876543210febcda) & 0x543210febcda9876}
 } 1167013060659550290
 test execute-7.18 {Wide int handling in INST_ADD} {
-    expr wide(0x7fffffff)+wide(0x7fffffff)
+    expr {wide(0x7fffffff) + wide(0x7fffffff)}
 } 4294967294
 test execute-7.19 {Wide int handling in INST_ADD} {
-    expr 0x7fffffff+wide(0x7fffffff)
+    expr {0x7fffffff + wide(0x7fffffff)}
 } 4294967294
 test execute-7.20 {Wide int handling in INST_ADD} {
-    expr wide(0x7fffffff)+0x7fffffff
+    expr {wide(0x7fffffff) + 0x7fffffff}
 } 4294967294
 test execute-7.21 {Wide int handling in INST_ADD} {
-    expr double(0x7fffffff)+wide(0x7fffffff)
+    expr {double(0x7fffffff) + wide(0x7fffffff)}
 } 4294967294.0
 test execute-7.22 {Wide int handling in INST_ADD} {
-    expr wide(0x7fffffff)+double(0x7fffffff)
+    expr {wide(0x7fffffff) + double(0x7fffffff)}
 } 4294967294.0
 test execute-7.23 {Wide int handling in INST_SUB} {
-    expr 0x123456789a-0x20406080a
+    expr {0x123456789a - 0x20406080a}
 } 69530054800
 test execute-7.24 {Wide int handling in INST_MULT} {
-    expr 0x123456789a*193
+    expr {0x123456789a * 193}
 } 15090186251290
 test execute-7.25 {Wide int handling in INST_DIV} {
-    expr 0x123456789a/193
+    expr {0x123456789a / 193}
 } 405116546
 test execute-7.26 {Wide int handling in INST_UPLUS} {
     set x 0x123456871234568
diff --git a/tests/for-old.test b/tests/for-old.test
index d00a4ee..d68f05a 100644
--- a/tests/for-old.test
+++ b/tests/for-old.test
@@ -22,23 +22,23 @@ if {"::tcltest" ni [namespace children]} {
 catch {unset a i}
 test for-old-1.1 {for tests} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
 	set a [concat $a $i]
     }
     set a
 } {1 2 3 4 5}
 test for-old-1.2 {for tests} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 continue
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} continue
 	set a [concat $a $i]
     }
     set a
 } {1 2 3 5}
 test for-old-1.3 {for tests} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 break
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} break
 	set a [concat $a $i]
     }
     set a
@@ -55,12 +55,12 @@ test for-old-1.7 {for tests} {
 } {wrong # args: should be "for start test next command"}
 test for-old-1.8 {for tests} {
     set a {xyz}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {}
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {}
     set a
 } xyz
 test for-old-1.9 {for tests} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]; if $i==4 break} {
+    for {set i 1} {$i<6} {set i [expr {$i+1}]; if {$i==4} break} {
 	set a [concat $a $i]
     }
     set a
diff --git a/tests/for.test b/tests/for.test
index 65d8fc8..64ec22c 100644
--- a/tests/for.test
+++ b/tests/for.test
@@ -62,15 +62,15 @@ test for-1.8 {TclCompileForCmd: error compiling command body} -body {
 catch {unset a}
 test for-1.9 {TclCompileForCmd: simple command body} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 break
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} break
 	set a [concat $a $i]
     }
     set a
 } {1 2 3}
 test for-1.10 {TclCompileForCmd: command body in quotes} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} "append a x"
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} "append a x"
     set a
 } {xxxxx}
 test for-1.11 {TclCompileForCmd: computed command body} {
@@ -81,7 +81,7 @@ test for-1.11 {TclCompileForCmd: computed command body} {
     set bb {break}
     set x2 {; append a x2}
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} $x1$bb$x2
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} $x1$bb$x2
     set a
 } {x1}
 test for-1.12 {TclCompileForCmd: error in "next" command} -body {
@@ -92,9 +92,9 @@ test for-1.12 {TclCompileForCmd: error in "next" command} -body {
 "set"*}
 test for-1.13 {TclCompileForCmd: long command body} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 break
-	if $i>5 continue
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -129,7 +129,7 @@ test for-1.14 {TclCompileForCmd: for command result} {
     set a
 } {}
 test for-1.15 {TclCompileForCmd: for command result} {
-    set a [for {set i 0} {$i < 5} {incr i} {if $i==3 break}]
+    set a [for {set i 0} {$i < 5} {incr i} {if {$i==3} break}]
     set a
 } {}
 
@@ -144,7 +144,7 @@ test for-2.2 {TclCompileContinueCmd: continue result} {
 } 4
 test for-2.3 {continue tests} {
     set a {}
-    for {set i 1} {$i <= 4} {set i [expr $i+1]} {
+    for {set i 1} {$i <= 4} {set i [expr {$i+1}]} {
 	if {$i == 2} continue
 	set a [concat $a $i]
     }
@@ -152,7 +152,7 @@ test for-2.3 {continue tests} {
 } {1 3 4}
 test for-2.4 {continue tests} {
     set a {}
-    for {set i 1} {$i <= 4} {set i [expr $i+1]} {
+    for {set i 1} {$i <= 4} {set i [expr {$i+1}]} {
 	if {$i != 2} continue
 	set a [concat $a $i]
     }
@@ -170,10 +170,10 @@ test for-2.5 {continue tests, nested loops} {
 } {1.1 1.2 2.1 3.1 4.1}
 test for-2.6 {continue tests, long command body} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==2 continue
-	if $i==4 break
-	if $i>5 continue
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==2} continue
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -246,10 +246,10 @@ test for-3.4 {break tests, nested loops} {
 } {1.1 1.2 2.1 3.1 4.1}
 test for-3.5 {break tests, long command body} {
     set a {}
-    for {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==2 continue
-	if $i==5 break
-	if $i>5 continue
+    for {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==2} continue
+	if {$i==5} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -265,7 +265,7 @@ test for-3.5 {break tests, long command body} {
 	    catch {incr i 5} msg
 	    catch {incr i -5} msg
 	}
-	if $i==4 break
+	if {$i==4} break
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -386,7 +386,7 @@ proc formatMail {} {
 		continue
 	    }
 	}
-	if $inheaders {
+	if {$inheaders} {
 	    set limit 55
 	} else {
 	    set limit 55
@@ -430,12 +430,12 @@ proc formatMail {} {
 		continue
 	    }
 	}
-	set climit [expr $limit-1]
+	set climit [expr {$limit-1}]
 	set cutoff 50
 	set continuation 0
 
 	while {[string length $line] > $limit} {
-	    for {set c [expr $limit-1]} {$c >= $cutoff} {incr c -1} {
+	    for {set c [expr {$limit-1}]} {$c >= $cutoff} {incr c -1} {
 		set char [string index $line $c]
 		if {$char == " " || $char == "\t"} {
 		    break
@@ -446,7 +446,7 @@ proc formatMail {} {
 	    }
 	    if {$c < $cutoff} {
 		if {! $inheaders} {
-		    set c [expr $limit-1]
+		    set c [expr {$limit-1}]
 		} else {
 		    set c [string length $line]
 		}
@@ -585,7 +585,7 @@ Tcl/Tk Shop. Check it out!
 test for-4.1 {break must reset the interp result} {
     catch {
         set z GLOBTESTDIR/dir2/file2.c
-        if [string match GLOBTESTDIR/dir2/* $z] {
+        if {[string match GLOBTESTDIR/dir2/* $z]} {
             break
         }
     } j
@@ -696,8 +696,8 @@ test for-6.9 {Tcl_ForObjCmd: error executing command body} -body {
 test for-6.10 {Tcl_ForObjCmd: simple command body} {
     set z for
     set a {}
-    $z {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 break
+    $z {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} break
 	set a [concat $a $i]
     }
     set a
@@ -705,7 +705,7 @@ test for-6.10 {Tcl_ForObjCmd: simple command body} {
 test for-6.11 {Tcl_ForObjCmd: command body in quotes} {
     set z for
     set a {}
-    $z {set i 1} {$i<6} {set i [expr $i+1]} "append a x"
+    $z {set i 1} {$i<6} {set i [expr {$i+1}]} "append a x"
     set a
 } {xxxxx}
 test for-6.12 {Tcl_ForObjCmd: computed command body} {
@@ -717,7 +717,7 @@ test for-6.12 {Tcl_ForObjCmd: computed command body} {
     set bb {break}
     set x2 {; append a x2}
     set a {}
-    $z {set i 1} {$i<6} {set i [expr $i+1]} $x1$bb$x2
+    $z {set i 1} {$i<6} {set i [expr {$i+1}]} $x1$bb$x2
     set a
 } {x1}
 test for-6.13 {Tcl_ForObjCmd: error in "next" command} -body {
@@ -733,9 +733,9 @@ test for-6.13 {Tcl_ForObjCmd: error in "next" command} -body {
 test for-6.14 {Tcl_ForObjCmd: long command body} {
     set z for
     set a {}
-    $z {set i 1} {$i<6} {set i [expr $i+1]} {
-	if $i==4 break
-	if $i>5 continue
+    $z {set i 1} {$i<6} {set i [expr {$i+1}]} {
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
diff --git a/tests/history.test b/tests/history.test
index 76ce54e..b6a2755 100644
--- a/tests/history.test
+++ b/tests/history.test
@@ -40,7 +40,7 @@ test history-1.1 {event option} history {history event -1} \
 	{set b [format {A test %s} string]}
 test history-1.2 {event option} history {history event $num} \
 	{set a 12345}
-test history-1.3 {event option} history {history event [expr $num+2]} \
+test history-1.3 {event option} history {history event [expr {$num+2}]} \
 	{Another test}
 test history-1.4 {event option} history {history event set} \
 	{set b [format {A test %s} string]}
@@ -149,11 +149,11 @@ test history-5.1 {info option} history {history info} [format {%6d  set a {b
 %6d  set b 1234
 %6d  set c {a
 	b
-	c}} $num [expr $num+1] [expr $num+2]]
+	c}} $num [expr {$num+1}] [expr {$num+2}]]
 test history-5.2 {info option} history {history i 2} [format {%6d  set b 1234
 %6d  set c {a
 	b
-	c}} [expr $num+1] [expr $num+2]]
+	c}} [expr {$num+1}] [expr {$num+2}]]
 test history-5.3 {info option} history {catch {history i 2 3}} 1
 test history-5.4 {info option} history {
     catch {history i 2 3} msg
@@ -164,7 +164,7 @@ test history-5.5 {info option} history {history} [format {%6d  set a {b
 %6d  set b 1234
 %6d  set c {a
 	b
-	c}} $num [expr $num+1] [expr $num+2]]
+	c}} $num [expr {$num+1}] [expr {$num+2}]]
 
 # "history keep"
 
@@ -174,7 +174,9 @@ if {[testConstraint history]} {
     history add "foo3"
     history keep 2
 }
-test history-6.1 {keep option} history {history event [expr [history n]-1]} foo3
+test history-6.1 {keep option} history {
+    history event [expr {[history n]-1}]
+} foo3
 test history-6.2 {keep option} history {history event -1} foo2
 test history-6.3 {keep option} history {catch {history event -3}} 1
 test history-6.4 {keep option} history {
@@ -216,7 +218,7 @@ if {[testConstraint history]} {
     history add "Testing2"
 }
 test history-7.1 {nextid option} history {history event} "Testing"
-test history-7.2 {nextid option} history {history next} [expr $num+2]
+test history-7.2 {nextid option} history {history next} [expr {$num+2}]
 test history-7.3 {nextid option} history {catch {history nextid garbage}} 1
 test history-7.4 {nextid option} history {
     catch {history nextid garbage} msg
@@ -262,7 +264,7 @@ test history-10.1 {references kept by history} -constraints history -setup {
 } -body {
     histtest eval {
 	# A fresh object, refcount 1 from the variable we write it to
-	set obj [expr rand()]
+	set obj [expr {rand()}]
 	set baseline [refcount $obj]
 	lappend result [refcount $obj]
 	history add [list list $obj]
@@ -288,7 +290,7 @@ test history-10.2 {references kept by history} -constraints history -setup {
 } -body {
     histtest eval {
 	# A fresh object, refcount 1 from the variable we write it to
-	set obj [expr rand()]
+	set obj [expr {rand()}]
 	set baseline [refcount $obj]
 	lappend result [refcount $obj]
 	history add [list list $obj]
diff --git a/tests/http.test b/tests/http.test
index 97e6cfa..d1b2d22 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -128,7 +128,7 @@ test http-3.2 {http::geturl} -returnCodes error -body {
     http::geturl http:junk
 } -result {Unsupported URL: http:junk}
 set url //${::HOST}:$port
-set badurl //${::HOST}:[expr $port+1]
+set badurl //${::HOST}:[expr {$port+1}]
 test http-3.3 {http::geturl} -body {
     set token [http::geturl $url]
     http::data $token
diff --git a/tests/httpold.test b/tests/httpold.test
index dec4697..1b07c90 100644
--- a/tests/httpold.test
+++ b/tests/httpold.test
@@ -49,7 +49,7 @@ catch {unset data}
 source [file join [file dirname [info script]] httpd]
 
 set port 8010
-if [catch {httpd_init $port} listen] {
+if {[catch {httpd_init $port} listen]} {
     puts "Cannot start http server, http test skipped"
     unset port
     ::tcltest::cleanupTests
diff --git a/tests/if.test b/tests/if.test
index f5acf60..e589351 100644
--- a/tests/if.test
+++ b/tests/if.test
@@ -142,7 +142,7 @@ test if-1.16 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -165,7 +165,7 @@ test if-1.16 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -239,7 +239,7 @@ test if-2.5 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -262,7 +262,7 @@ test if-2.5 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -287,7 +287,7 @@ test if-2.5 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 5
@@ -310,7 +310,7 @@ test if-2.5 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 6
@@ -389,7 +389,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -412,7 +412,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -437,7 +437,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 5
@@ -460,7 +460,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 6
@@ -485,7 +485,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 8
@@ -508,7 +508,7 @@ test if-3.6 {TclCompileIfCmd: test jumpFalse instruction replacement after long
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 9
@@ -713,7 +713,7 @@ test if-5.16 {if cmd with computed command names: test jumpFalse instruction rep
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -736,7 +736,7 @@ test if-5.16 {if cmd with computed command names: test jumpFalse instruction rep
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -816,7 +816,7 @@ test if-6.5 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -839,7 +839,7 @@ test if-6.5 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -864,7 +864,7 @@ test if-6.5 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 5
@@ -887,7 +887,7 @@ test if-6.5 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 6
@@ -975,7 +975,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 2
@@ -998,7 +998,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 3
@@ -1023,7 +1023,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 5
@@ -1046,7 +1046,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 6
@@ -1071,7 +1071,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 8
@@ -1094,7 +1094,7 @@ test if-7.6 {if cmd with computed command names: test jumpFalse instruction repl
 		    set i $i
 		    set i [lindex $s $i]
 		}
-		set i [expr $i-1]
+		incr i -1
 	    }
 	}
 	set a 9
diff --git a/tests/info.test b/tests/info.test
index 3f42d93..fb9e0de 100644
--- a/tests/info.test
+++ b/tests/info.test
@@ -325,7 +325,7 @@ test info-9.2 {info level option} {
 } {1 {t1 146 testString}}
 test info-9.3 {info level option} {
     proc t1 {a b} {
-        t2 [expr $a*2] $b
+        t2 [expr {$a*2}] $b
     }
     proc t2 {x y} {
         list [info level] [info level 1] [info level 2] [info level -1] \
@@ -2099,7 +2099,7 @@ proc foo::bar {} {
     foreach {*}{
 	x y
 	{set res [info frame 0]}
-    } 
+    }
     return $res
 }
 test info-33.13 {{*}, literal, simple, bytecompiled} -body {
@@ -2114,7 +2114,7 @@ proc foo::bar {} {
     if {*}{
 	{[return [info frame 0]]}
 	{}
-    } 
+    }
 }
 test info-33.14 {{*}, literal, simple, bytecompiled} -body {
     reduce [foo::bar]
@@ -2128,7 +2128,7 @@ proc foo::bar {} {
     if 0 {*}{
 	{} else
 	{return [info frame 0]}
-    } 
+    }
 }
 test info-33.15 {{*}, literal, simple, bytecompiled} -body {
     reduce [foo::bar]
@@ -2229,7 +2229,7 @@ namespace eval foo {}
 proc foo::bar {} {
     try {*}{
 	{set res [info frame 0]}
-    } 
+    }
     return $res
 }
 test info-33.23 {{*}, literal, simple, bytecompiled} -body {
diff --git a/tests/interp.test b/tests/interp.test
index 8a4d064..d742484 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -105,7 +105,7 @@ test interp-2.11 {anonymous interps vs existing procs} {
     proc interp$thenum {} {}
     set x [interp create]
     regexp "interp(\[0-9]+)" $x dummy anothernum
-    expr $anothernum > $thenum
+    expr {$anothernum > $thenum}
 } 1
 test interp-2.12 {anonymous interps vs existing procs} {
     set x [interp create -safe]
@@ -114,7 +114,7 @@ test interp-2.12 {anonymous interps vs existing procs} {
     proc interp$thenum {} {}
     set x [interp create -safe]
     regexp "interp(\[0-9]+)" $x dummy anothernum
-    expr $anothernum - $thenum
+    expr {$anothernum - $thenum}
 } 1
 test interp-2.13 {correct default when no $path arg is given} -body {
     interp create --
@@ -224,22 +224,22 @@ interp create a
 
 # Part 5: Testing eval in interpreter object command and with interp command
 test interp-6.1 {testing eval} {
-    a eval expr 3 + 5
+    a eval expr {{3 + 5}}
 } 8
 test interp-6.2 {testing eval} -returnCodes error -body {
     a eval foo
 } -result {invalid command name "foo"}
 test interp-6.3 {testing eval} {
-    a eval {proc foo {} {expr 3 + 5}}
+    a eval {proc foo {} {expr {3 + 5}}}
     a eval foo
 } 8
-catch {a eval {proc foo {} {expr 3 + 5}}}
+catch {a eval {proc foo {} {expr {3 + 5}}}}
 test interp-6.4 {testing eval} {
     interp eval a foo
 } 8
 test interp-6.5 {testing eval} {
     interp create {a x2}
-    interp eval {a x2} {proc frob {} {expr 4 * 9}}
+    interp eval {a x2} {proc frob {} {expr {4 * 9}}}
     interp eval {a x2} frob
 } 36
 catch {interp create {a x2}}
@@ -746,7 +746,7 @@ test interp-16.5 {testing deletion order, bgerror} {
     xxx eval {proc bgerror {args} {exit}}
     xxx alias exit kill xxx
     proc kill {i} {interp delete $i}
-    xxx eval after 100 expr a + b
+    xxx eval after 100 expr {a + b}
     after 200
     update
     interp exists xxx
@@ -966,7 +966,7 @@ test interp-19.9 {alias deletion, renaming} {
     interp create a
     interp alias a foo a bar
     interp eval a rename foo blotz
-    interp eval a {proc foo {} {expr 34 * 34}}
+    interp eval a {proc foo {} {expr {34 * 34}}}
     interp alias a foo {}
     set l [interp eval a foo]
     interp delete a
@@ -3171,7 +3171,7 @@ test interp-34.3.1 {basic test of limits - pure inside-command loop} -body {
 	}
     }
     # We use a time limit here; command limits don't trap this case
-    $i limit time -seconds [expr {[clock seconds]+2}]
+    $i limit time -seconds [expr {[clock seconds] + 2}]
     $i eval foobar
 } -returnCodes error -result {time limit exceeded} -cleanup {
     interp delete $i
@@ -3193,8 +3193,8 @@ test interp-34.4 {limits with callbacks: extending limits} -setup {
 } -body {
     interp alias $i foo {} cb1
     set curlim [$i eval info cmdcount]
-    $i limit command -command "cb2 [expr $curlim+100]" \
-	    -value [expr {$curlim+10}]
+    $i limit command -command "cb2 [expr {$curlim + 100}]" \
+	    -value [expr {$curlim + 10}]
     $i eval {for {set i 0} {$i<10} {incr i} {foo}}
     list $a $b $c
 } -result {6 4 b} -cleanup {
@@ -3222,7 +3222,7 @@ test interp-34.5 {limits with callbacks: removing limits} -setup {
 } -body {
     interp alias $i foo {} cb1
     set curlim [$i eval info cmdcount]
-    $i limit command -command "cb2 {}" -value [expr {$curlim+10}]
+    $i limit command -command "cb2 {}" -value [expr {$curlim + 10}]
     $i eval {for {set i 0} {$i<10} {incr i} {foo}}
     list $a $b $c
 } -result {6 4 b} -cleanup {
@@ -3247,7 +3247,7 @@ test interp-34.6 {limits with callbacks: removing limits and handlers} -setup {
 } -body {
     interp alias $i foo {} cb1
     set curlim [$i eval info cmdcount]
-    $i limit command -command cb2 -value [expr {$curlim+10}]
+    $i limit command -command cb2 -value [expr {$curlim + 10}]
     $i eval {for {set i 0} {$i<10} {incr i} {foo}}
     list $a $b $c
 } -result {6 4 b} -cleanup {
@@ -3266,7 +3266,7 @@ test interp-34.7 {limits with callbacks: deleting the handler interp} -setup {
 	proc cb2 {args} {
 	    global c i curlim
 	    set c b
-	    $i limit command -value [expr {$curlim+1000}]
+	    $i limit command -value [expr {$curlim + 1000}]
 	    trapToParent
 	}
     }
@@ -3289,7 +3289,7 @@ test interp-34.7 {limits with callbacks: deleting the handler interp} -setup {
 	set c a
 	interp alias $i foo {} cb1
 	set curlim [$i eval info cmdcount]
-	$i limit command -command cb2 -value [expr {$curlim+10}]
+	$i limit command -command cb2 -value [expr {$curlim + 10}]
     }
     $i eval {
 	$i eval {
@@ -3304,7 +3304,7 @@ test interp-34.7 {limits with callbacks: deleting the handler interp} -setup {
 # Bug 1085023
 test interp-34.8 {time limits trigger in vwaits} -body {
     set i [interp create]
-    interp limit $i time -seconds [expr {[clock seconds]+1}] -granularity 1
+    interp limit $i time -seconds [expr {[clock seconds] + 1}] -granularity 1
     $i eval {
 	set x {}
 	vwait x
@@ -3352,8 +3352,8 @@ test interp-34.11 {time limit extension in callbacks} -setup {
 } -body {
     set i [interp create]
     set t0 [clock seconds]
-    $i limit time -seconds [expr {$t0+1}] -granularity 1 \
-	-command "cb1 $i [expr {$t0+2}]"
+    $i limit time -seconds [expr {$t0 + 1}] -granularity 1 \
+	-command "cb1 $i [expr {$t0 + 2}]"
     set ::result {}
     lappend ::result [catch {
 	$i eval {
@@ -3380,8 +3380,8 @@ test interp-34.12 {time limit extension in callbacks} -setup {
 } -body {
     set i [interp create]
     set t0 [clock seconds]
-    set ::times "[expr {$t0+2}] [expr {$t0+100}]"
-    $i limit time -seconds [expr {$t0+1}] -granularity 1 -command "cb1 $i"
+    set ::times "[expr {$t0 + 2}] [expr {$t0 + 100}]"
+    $i limit time -seconds [expr {$t0 + 1}] -granularity 1 -command "cb1 $i"
     set ::result {}
     lappend ::result [catch {
 	$i eval {
@@ -3615,8 +3615,8 @@ test interp-37.1 {safe interps and min() and max(): Bug 2895741} -setup {
     set result {}
 } -body {
     interp create {a b} -safe
-    lappend result [interp eval a {expr min(5,2,3)*max(7,13,11)}]
-    lappend result [interp eval {a b} {expr min(5,2,3)*max(7,13,11)}]
+    lappend result [interp eval a {expr {min(5,2,3)*max(7,13,11)}}]
+    lappend result [interp eval {a b} {expr {min(5,2,3)*max(7,13,11)}}]
 } -cleanup {
     unset -nocomplain result
     interp delete a
diff --git a/tests/io.test b/tests/io.test
index 5f668e6..baf9b1c 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -7514,7 +7514,7 @@ test io-53.5 {CopyData: error during fcopy} {socket fcopy} {
     close $listen	;# This means the socket open never really succeeds
     fcopy $in $out -command [namespace code FcopyTestDone]
     variable fcopyTestDone
-    if ![info exists fcopyTestDone] {
+    if {![info exists fcopyTestDone]} {
 	vwait [namespace which -variable fcopyTestDone]		;# The error occurs here in the b.g.
     }
     close $in
@@ -7533,7 +7533,7 @@ test io-53.6 {CopyData: error during fcopy} {stdio fcopy} {
     set out [open $path(test1) w]
     fcopy $in $out -command [namespace code FcopyTestDone]
     variable fcopyTestDone
-    if ![info exists fcopyTestDone] {
+    if {![info exists fcopyTestDone]} {
 	vwait [namespace which -variable fcopyTestDone]
     }
     catch {close $in}
@@ -7580,7 +7580,7 @@ test io-53.7 {CopyData: Flooding fcopy from pipe} {stdio fcopy} {
     set out [open $path(test1) w]
     doFcopy $in $out
     variable fcopyTestDone
-    if ![info exists fcopyTestDone] {
+    if {![info exists fcopyTestDone]} {
 	vwait [namespace which -variable fcopyTestDone]
     }
     catch {close $in}
diff --git a/tests/list.test b/tests/list.test
index edb572c..8e85ed8 100644
--- a/tests/list.test
+++ b/tests/list.test
@@ -98,26 +98,26 @@ concat {}
 
 proc slowsort list {
     set result {}
-    set last [expr [llength $list] - 1]
+    set last [expr {[llength $list] - 1}]
     while {$last > 0} {
-	set minIndex [expr [llength $list] - 1]
+	set minIndex [expr {[llength $list] - 1}]
 	set min [lindex $list $last]
-	set i [expr $minIndex-1]
+	set i [expr {$minIndex - 1}]
 	while {$i >= 0} {
 	    if {[string compare [lindex $list $i] $min] < 0} {
 		set minIndex $i
 		set min [lindex $list $i]
 	    }
-	    set i [expr $i-1]
+	    set i [expr {$i - 1}]
 	}
 	set result [concat $result [list $min]]
 	if {$minIndex == 0} {
 	    set list [lrange $list 1 end]
 	} else {
-	    set list [concat [lrange $list 0 [expr $minIndex-1]] \
-			  [lrange $list [expr $minIndex+1] end]]
+	    set list [concat [lrange $list 0 [expr {$minIndex - 1}]] \
+			  [lrange $list [expr {$minIndex + 1}] end]]
 	}
-	set last [expr $last-1]
+	set last [expr {$last - 1}]
     }
     return [concat $result $list]
 }
diff --git a/tests/load.test b/tests/load.test
index 9fdf1cf..c79ddf4 100644
--- a/tests/load.test
+++ b/tests/load.test
@@ -45,30 +45,30 @@ testConstraint teststaticpkg [llength [info commands teststaticpkg]]
 testConstraint testsimplefilesystem \
 	[llength [info commands testsimplefilesystem]]
 
-test load-1.1 {basic errors} {} {
-    list [catch {load} msg] $msg
-} "1 {wrong \# args: should be \"load ?-global? ?-lazy? ?--? fileName ?packageName? ?interp?\"}"
-test load-1.2 {basic errors} {} {
-    list [catch {load a b c d} msg] $msg
-} "1 {wrong \# args: should be \"load ?-global? ?-lazy? ?--? fileName ?packageName? ?interp?\"}"
-test load-1.3 {basic errors} {} {
-    list [catch {load a b foobar} msg] $msg
-} {1 {could not find interpreter "foobar"}}
-test load-1.4 {basic errors} {} {
-    list [catch {load -global {}} msg] $msg
-} {1 {must specify either file name or package name}}
-test load-1.5 {basic errors} {} {
-    list [catch {load -lazy {} {}} msg] $msg
-} {1 {must specify either file name or package name}}
-test load-1.6 {basic errors} {} {
-    list [catch {load {} Unknown} msg] $msg
-} {1 {package "Unknown" isn't loaded statically}}
-test load-1.7 {basic errors} {} {
-    list [catch {load -abc foo} msg] $msg
-} "1 {bad option \"-abc\": must be -global, -lazy, or --}"
-test load-1.8 {basic errors} {} {
-    list [catch {load -global} msg] $msg
-} "1 {couldn't figure out package name for -global}"
+test load-1.1 {basic errors} -returnCodes error -body {
+    load
+} -result {wrong # args: should be "load ?-global? ?-lazy? ?--? fileName ?packageName? ?interp?"}
+test load-1.2 {basic errors} -returnCodes error -body {
+    load a b c d
+} -result {wrong # args: should be "load ?-global? ?-lazy? ?--? fileName ?packageName? ?interp?"}
+test load-1.3 {basic errors} -returnCodes error -body {
+    load a b foobar
+} -result {could not find interpreter "foobar"}
+test load-1.4 {basic errors} -returnCodes error -body {
+    load -global {}
+} -result {must specify either file name or package name}
+test load-1.5 {basic errors} -returnCodes error -body {
+    load -lazy {} {}
+} -result {must specify either file name or package name}
+test load-1.6 {basic errors} -returnCodes error -body {
+    load {} Unknown
+} -result {package "Unknown" isn't loaded statically}
+test load-1.7 {basic errors} -returnCodes error -body {
+    load -abc foo
+} -result {bad option "-abc": must be -global, -lazy, or --}
+test load-1.8 {basic errors} -returnCodes error -body {
+    load -global
+} -result {couldn't figure out package name for -global}
 
 test load-2.1 {basic loading, with guess for package name} \
 	[list $dll $loaded] {
@@ -130,16 +130,16 @@ test load-4.2 {reloading package into same interpreter} -setup {
     load [file join $testDir pkga$ext] pkgb
 } -result "file \"[file join $testDir pkga$ext]\" is already loaded for package \"Pkga\""
 
-test load-5.1 {file name not specified and no static package: pick default} \
-	[list $dll $loaded] {
+test load-5.1 {file name not specified and no static package: pick default} -setup {
     catch {interp delete x}
     interp create x
+} -constraints [list $dll $loaded] -body {
     load -global [file join $testDir pkga$ext] pkga
     load {} pkga x
-    set result [info loaded x]
+    info loaded x
+} -cleanup {
     interp delete x
-    set result
-} [list [list [file join $testDir pkga$ext] Pkga]]
+} -result [list [list [file join $testDir pkga$ext] Pkga]]
 
 # On some platforms, like SunOS 4.1.3, these tests can't be run because
 # they cause the process to exit.
@@ -185,16 +185,16 @@ test load-7.4 {Tcl_StaticPackage procedure, redundant calls} -setup {
     info loaded
 } -result [list {{} Double} {{} More} {{} Another} {{} Test} {*}$currentRealPackages {*}$alreadyTotalLoaded]
 
-testConstraint teststaticpkg_8.x \
-    [if {[testConstraint teststaticpkg]} {
+testConstraint teststaticpkg_8.x 0
+if {[testConstraint teststaticpkg]} {
+    catch {
 	teststaticpkg Test 1 1
 	teststaticpkg Another 0 1
 	teststaticpkg More 0 1
 	teststaticpkg Double 0 1
-	expr 1
-    } else {
-	expr 0
-    }]
+	testConstraint teststaticpkg_8.x 1
+    }
+}
 
 test load-8.1 {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loaded] {
     lsort -index 1 [info loaded]
@@ -214,30 +214,32 @@ test load-8.4 {TclGetLoadedPackages procedure} [list teststaticpkg_8.x $dll $loa
 } [list [lsort -index 1 [concat [list [list [file join $testDir pkgb$ext] Pkgb] {{} Double} {{} More} {{} Another} {{} Test} [list [file join $testDir pkga$ext] Pkga]] $alreadyLoaded]] {pkgb_demo pkgb_sub pkgb_unsafe}]
 interp delete child
 
-test load-9.1 {Tcl_StaticPackage, load already-loaded package into another interp} \
-    -constraints {teststaticpkg} \
-    -setup {
-	interp create child1
-	interp create child2
-	load {} Tcltest child1
-	load {} Tcltest child2
-    } \
-    -body {
-	child1 eval { teststaticpkg Loadninepointone 0 1 }
-	child2 eval { teststaticpkg Loadninepointone 0 1 }
-	list \
-	    [child1 eval { info loaded {} }] \
-	    [child2 eval { info loaded {} }]
-    } \
-    -match glob -result {{{{} Loadninepointone} {* Tcltest}} {{{} Loadninepointone} {* Tcltest}}} \
-    -cleanup { interp delete child1 ; interp delete child2 }
-
-test load-10.1 {load from vfs} \
-    -constraints [list $dll $loaded testsimplefilesystem] \
-    -setup {set dir [pwd]; cd $testDir; testsimplefilesystem 1} \
-    -body {list [catch {load simplefs:/pkgd$ext pkgd} msg] $msg} \
-    -result {0 {}} \
-    -cleanup {testsimplefilesystem 0; cd $dir; unset dir}
+test load-9.1 {Tcl_StaticPackage, load already-loaded package into another interp} -setup {
+    interp create child1
+    interp create child2
+    load {} Tcltest child1
+    load {} Tcltest child2
+} -constraints {teststaticpkg} -body {
+    child1 eval { teststaticpkg Loadninepointone 0 1 }
+    child2 eval { teststaticpkg Loadninepointone 0 1 }
+    list [child1 eval { info loaded {} }] \
+	[child2 eval { info loaded {} }]
+} -match glob -cleanup {
+    interp delete child1
+    interp delete child2
+} -result {{{{} Loadninepointone} {* Tcltest}} {{{} Loadninepointone} {* Tcltest}}}
+
+test load-10.1 {load from vfs} -setup {
+    set dir [pwd]
+    cd $testDir
+    testsimplefilesystem 1
+} -constraints [list $dll $loaded testsimplefilesystem] -body {
+    list [catch {load simplefs:/pkgd$ext pkgd} msg] $msg
+} -result {0 {}} -cleanup {
+    testsimplefilesystem 0
+    cd $dir
+    unset dir
+}
 
 test load-11.1 {Load TclOO extension using Stubs (Bug [f51efe99a7])} \
 	[list $dll $loaded] {
diff --git a/tests/lsearch.test b/tests/lsearch.test
index aa43862..27ae4aa 100644
--- a/tests/lsearch.test
+++ b/tests/lsearch.test
@@ -384,7 +384,7 @@ test lsearch-14.8 {combinations: -start, -inline and -not} {
 } {c4}
 
 test lsearch-15.1 {make sure no shimmering occurs} {
-    set x [expr int(sin(0))]
+    set x [expr {int(sin(0))}]
     lsearch -start $x $x $x
 } 0
 
diff --git a/tests/lsetComp.test b/tests/lsetComp.test
index d8ad246..d50e0b2 100644
--- a/tests/lsetComp.test
+++ b/tests/lsetComp.test
@@ -22,7 +22,7 @@ if {"::tcltest" ni [namespace children]} {
 proc evalInProc { script } {
     proc testProc {} $script
     set status [catch {
-	testProc 
+	testProc
     } result]
     rename testProc {}
     return [list $status $result]
@@ -60,69 +60,69 @@ test lsetComp-2.3 {lset, compiled, list of args, scalar, one-byte offset} {
 
 test lsetComp-2.4 {lset, compiled, list of args, scalar, four-byte offset} {
     evalInProc {
-	set x0 0; set x1 0; set x2 0; set x3 0; 
-	set x4 0; set x5 0; set x6 0; set x7 0; 
-	set x8 0; set x9 0; set x10 0; set x11 0; 
-	set x12 0; set x13 0; set x14 0; set x15 0; 
-	set x16 0; set x17 0; set x18 0; set x19 0; 
-	set x20 0; set x21 0; set x22 0; set x23 0; 
-	set x24 0; set x25 0; set x26 0; set x27 0; 
-	set x28 0; set x29 0; set x30 0; set x31 0; 
-	set x32 0; set x33 0; set x34 0; set x35 0; 
-	set x36 0; set x37 0; set x38 0; set x39 0; 
-	set x40 0; set x41 0; set x42 0; set x43 0; 
-	set x44 0; set x45 0; set x46 0; set x47 0; 
-	set x48 0; set x49 0; set x50 0; set x51 0; 
-	set x52 0; set x53 0; set x54 0; set x55 0; 
-	set x56 0; set x57 0; set x58 0; set x59 0; 
-	set x60 0; set x61 0; set x62 0; set x63 0; 
-	set x64 0; set x65 0; set x66 0; set x67 0; 
-	set x68 0; set x69 0; set x70 0; set x71 0; 
-	set x72 0; set x73 0; set x74 0; set x75 0; 
-	set x76 0; set x77 0; set x78 0; set x79 0; 
-	set x80 0; set x81 0; set x82 0; set x83 0; 
-	set x84 0; set x85 0; set x86 0; set x87 0; 
-	set x88 0; set x89 0; set x90 0; set x91 0; 
-	set x92 0; set x93 0; set x94 0; set x95 0; 
-	set x96 0; set x97 0; set x98 0; set x99 0; 
-	set x100 0; set x101 0; set x102 0; set x103 0; 
-	set x104 0; set x105 0; set x106 0; set x107 0; 
-	set x108 0; set x109 0; set x110 0; set x111 0; 
-	set x112 0; set x113 0; set x114 0; set x115 0; 
-	set x116 0; set x117 0; set x118 0; set x119 0; 
-	set x120 0; set x121 0; set x122 0; set x123 0; 
-	set x124 0; set x125 0; set x126 0; set x127 0; 
-	set x128 0; set x129 0; set x130 0; set x131 0; 
-	set x132 0; set x133 0; set x134 0; set x135 0; 
-	set x136 0; set x137 0; set x138 0; set x139 0; 
-	set x140 0; set x141 0; set x142 0; set x143 0; 
-	set x144 0; set x145 0; set x146 0; set x147 0; 
-	set x148 0; set x149 0; set x150 0; set x151 0; 
-	set x152 0; set x153 0; set x154 0; set x155 0; 
-	set x156 0; set x157 0; set x158 0; set x159 0; 
-	set x160 0; set x161 0; set x162 0; set x163 0; 
-	set x164 0; set x165 0; set x166 0; set x167 0; 
-	set x168 0; set x169 0; set x170 0; set x171 0; 
-	set x172 0; set x173 0; set x174 0; set x175 0; 
-	set x176 0; set x177 0; set x178 0; set x179 0; 
-	set x180 0; set x181 0; set x182 0; set x183 0; 
-	set x184 0; set x185 0; set x186 0; set x187 0; 
-	set x188 0; set x189 0; set x190 0; set x191 0; 
-	set x192 0; set x193 0; set x194 0; set x195 0; 
-	set x196 0; set x197 0; set x198 0; set x199 0; 
-	set x200 0; set x201 0; set x202 0; set x203 0; 
-	set x204 0; set x205 0; set x206 0; set x207 0; 
-	set x208 0; set x209 0; set x210 0; set x211 0; 
-	set x212 0; set x213 0; set x214 0; set x215 0; 
-	set x216 0; set x217 0; set x218 0; set x219 0; 
-	set x220 0; set x221 0; set x222 0; set x223 0; 
-	set x224 0; set x225 0; set x226 0; set x227 0; 
-	set x228 0; set x229 0; set x230 0; set x231 0; 
-	set x232 0; set x233 0; set x234 0; set x235 0; 
-	set x236 0; set x237 0; set x238 0; set x239 0; 
-	set x240 0; set x241 0; set x242 0; set x243 0; 
-	set x244 0; set x245 0; set x246 0; set x247 0; 
-	set x248 0; set x249 0; set x250 0; set x251 0; 
+	set x0 0; set x1 0; set x2 0; set x3 0;
+	set x4 0; set x5 0; set x6 0; set x7 0;
+	set x8 0; set x9 0; set x10 0; set x11 0;
+	set x12 0; set x13 0; set x14 0; set x15 0;
+	set x16 0; set x17 0; set x18 0; set x19 0;
+	set x20 0; set x21 0; set x22 0; set x23 0;
+	set x24 0; set x25 0; set x26 0; set x27 0;
+	set x28 0; set x29 0; set x30 0; set x31 0;
+	set x32 0; set x33 0; set x34 0; set x35 0;
+	set x36 0; set x37 0; set x38 0; set x39 0;
+	set x40 0; set x41 0; set x42 0; set x43 0;
+	set x44 0; set x45 0; set x46 0; set x47 0;
+	set x48 0; set x49 0; set x50 0; set x51 0;
+	set x52 0; set x53 0; set x54 0; set x55 0;
+	set x56 0; set x57 0; set x58 0; set x59 0;
+	set x60 0; set x61 0; set x62 0; set x63 0;
+	set x64 0; set x65 0; set x66 0; set x67 0;
+	set x68 0; set x69 0; set x70 0; set x71 0;
+	set x72 0; set x73 0; set x74 0; set x75 0;
+	set x76 0; set x77 0; set x78 0; set x79 0;
+	set x80 0; set x81 0; set x82 0; set x83 0;
+	set x84 0; set x85 0; set x86 0; set x87 0;
+	set x88 0; set x89 0; set x90 0; set x91 0;
+	set x92 0; set x93 0; set x94 0; set x95 0;
+	set x96 0; set x97 0; set x98 0; set x99 0;
+	set x100 0; set x101 0; set x102 0; set x103 0;
+	set x104 0; set x105 0; set x106 0; set x107 0;
+	set x108 0; set x109 0; set x110 0; set x111 0;
+	set x112 0; set x113 0; set x114 0; set x115 0;
+	set x116 0; set x117 0; set x118 0; set x119 0;
+	set x120 0; set x121 0; set x122 0; set x123 0;
+	set x124 0; set x125 0; set x126 0; set x127 0;
+	set x128 0; set x129 0; set x130 0; set x131 0;
+	set x132 0; set x133 0; set x134 0; set x135 0;
+	set x136 0; set x137 0; set x138 0; set x139 0;
+	set x140 0; set x141 0; set x142 0; set x143 0;
+	set x144 0; set x145 0; set x146 0; set x147 0;
+	set x148 0; set x149 0; set x150 0; set x151 0;
+	set x152 0; set x153 0; set x154 0; set x155 0;
+	set x156 0; set x157 0; set x158 0; set x159 0;
+	set x160 0; set x161 0; set x162 0; set x163 0;
+	set x164 0; set x165 0; set x166 0; set x167 0;
+	set x168 0; set x169 0; set x170 0; set x171 0;
+	set x172 0; set x173 0; set x174 0; set x175 0;
+	set x176 0; set x177 0; set x178 0; set x179 0;
+	set x180 0; set x181 0; set x182 0; set x183 0;
+	set x184 0; set x185 0; set x186 0; set x187 0;
+	set x188 0; set x189 0; set x190 0; set x191 0;
+	set x192 0; set x193 0; set x194 0; set x195 0;
+	set x196 0; set x197 0; set x198 0; set x199 0;
+	set x200 0; set x201 0; set x202 0; set x203 0;
+	set x204 0; set x205 0; set x206 0; set x207 0;
+	set x208 0; set x209 0; set x210 0; set x211 0;
+	set x212 0; set x213 0; set x214 0; set x215 0;
+	set x216 0; set x217 0; set x218 0; set x219 0;
+	set x220 0; set x221 0; set x222 0; set x223 0;
+	set x224 0; set x225 0; set x226 0; set x227 0;
+	set x228 0; set x229 0; set x230 0; set x231 0;
+	set x232 0; set x233 0; set x234 0; set x235 0;
+	set x236 0; set x237 0; set x238 0; set x239 0;
+	set x240 0; set x241 0; set x242 0; set x243 0;
+	set x244 0; set x245 0; set x246 0; set x247 0;
+	set x248 0; set x249 0; set x250 0; set x251 0;
 	set x252 0; set x253 0; set x254 0; set x255 0;
 	set x {{1 2} {3 4}}
 	lset x {1 1} 5
@@ -145,69 +145,69 @@ test lsetComp-2.6 {lset, compiled, list of args, array, one-byte offset} {
 
 test lsetComp-2.7 {lset, compiled, list of args, array, four-byte offset} {
     evalInProc {
-	set x0 0; set x1 0; set x2 0; set x3 0; 
-	set x4 0; set x5 0; set x6 0; set x7 0; 
-	set x8 0; set x9 0; set x10 0; set x11 0; 
-	set x12 0; set x13 0; set x14 0; set x15 0; 
-	set x16 0; set x17 0; set x18 0; set x19 0; 
-	set x20 0; set x21 0; set x22 0; set x23 0; 
-	set x24 0; set x25 0; set x26 0; set x27 0; 
-	set x28 0; set x29 0; set x30 0; set x31 0; 
-	set x32 0; set x33 0; set x34 0; set x35 0; 
-	set x36 0; set x37 0; set x38 0; set x39 0; 
-	set x40 0; set x41 0; set x42 0; set x43 0; 
-	set x44 0; set x45 0; set x46 0; set x47 0; 
-	set x48 0; set x49 0; set x50 0; set x51 0; 
-	set x52 0; set x53 0; set x54 0; set x55 0; 
-	set x56 0; set x57 0; set x58 0; set x59 0; 
-	set x60 0; set x61 0; set x62 0; set x63 0; 
-	set x64 0; set x65 0; set x66 0; set x67 0; 
-	set x68 0; set x69 0; set x70 0; set x71 0; 
-	set x72 0; set x73 0; set x74 0; set x75 0; 
-	set x76 0; set x77 0; set x78 0; set x79 0; 
-	set x80 0; set x81 0; set x82 0; set x83 0; 
-	set x84 0; set x85 0; set x86 0; set x87 0; 
-	set x88 0; set x89 0; set x90 0; set x91 0; 
-	set x92 0; set x93 0; set x94 0; set x95 0; 
-	set x96 0; set x97 0; set x98 0; set x99 0; 
-	set x100 0; set x101 0; set x102 0; set x103 0; 
-	set x104 0; set x105 0; set x106 0; set x107 0; 
-	set x108 0; set x109 0; set x110 0; set x111 0; 
-	set x112 0; set x113 0; set x114 0; set x115 0; 
-	set x116 0; set x117 0; set x118 0; set x119 0; 
-	set x120 0; set x121 0; set x122 0; set x123 0; 
-	set x124 0; set x125 0; set x126 0; set x127 0; 
-	set x128 0; set x129 0; set x130 0; set x131 0; 
-	set x132 0; set x133 0; set x134 0; set x135 0; 
-	set x136 0; set x137 0; set x138 0; set x139 0; 
-	set x140 0; set x141 0; set x142 0; set x143 0; 
-	set x144 0; set x145 0; set x146 0; set x147 0; 
-	set x148 0; set x149 0; set x150 0; set x151 0; 
-	set x152 0; set x153 0; set x154 0; set x155 0; 
-	set x156 0; set x157 0; set x158 0; set x159 0; 
-	set x160 0; set x161 0; set x162 0; set x163 0; 
-	set x164 0; set x165 0; set x166 0; set x167 0; 
-	set x168 0; set x169 0; set x170 0; set x171 0; 
-	set x172 0; set x173 0; set x174 0; set x175 0; 
-	set x176 0; set x177 0; set x178 0; set x179 0; 
-	set x180 0; set x181 0; set x182 0; set x183 0; 
-	set x184 0; set x185 0; set x186 0; set x187 0; 
-	set x188 0; set x189 0; set x190 0; set x191 0; 
-	set x192 0; set x193 0; set x194 0; set x195 0; 
-	set x196 0; set x197 0; set x198 0; set x199 0; 
-	set x200 0; set x201 0; set x202 0; set x203 0; 
-	set x204 0; set x205 0; set x206 0; set x207 0; 
-	set x208 0; set x209 0; set x210 0; set x211 0; 
-	set x212 0; set x213 0; set x214 0; set x215 0; 
-	set x216 0; set x217 0; set x218 0; set x219 0; 
-	set x220 0; set x221 0; set x222 0; set x223 0; 
-	set x224 0; set x225 0; set x226 0; set x227 0; 
-	set x228 0; set x229 0; set x230 0; set x231 0; 
-	set x232 0; set x233 0; set x234 0; set x235 0; 
-	set x236 0; set x237 0; set x238 0; set x239 0; 
-	set x240 0; set x241 0; set x242 0; set x243 0; 
-	set x244 0; set x245 0; set x246 0; set x247 0; 
-	set x248 0; set x249 0; set x250 0; set x251 0; 
+	set x0 0; set x1 0; set x2 0; set x3 0;
+	set x4 0; set x5 0; set x6 0; set x7 0;
+	set x8 0; set x9 0; set x10 0; set x11 0;
+	set x12 0; set x13 0; set x14 0; set x15 0;
+	set x16 0; set x17 0; set x18 0; set x19 0;
+	set x20 0; set x21 0; set x22 0; set x23 0;
+	set x24 0; set x25 0; set x26 0; set x27 0;
+	set x28 0; set x29 0; set x30 0; set x31 0;
+	set x32 0; set x33 0; set x34 0; set x35 0;
+	set x36 0; set x37 0; set x38 0; set x39 0;
+	set x40 0; set x41 0; set x42 0; set x43 0;
+	set x44 0; set x45 0; set x46 0; set x47 0;
+	set x48 0; set x49 0; set x50 0; set x51 0;
+	set x52 0; set x53 0; set x54 0; set x55 0;
+	set x56 0; set x57 0; set x58 0; set x59 0;
+	set x60 0; set x61 0; set x62 0; set x63 0;
+	set x64 0; set x65 0; set x66 0; set x67 0;
+	set x68 0; set x69 0; set x70 0; set x71 0;
+	set x72 0; set x73 0; set x74 0; set x75 0;
+	set x76 0; set x77 0; set x78 0; set x79 0;
+	set x80 0; set x81 0; set x82 0; set x83 0;
+	set x84 0; set x85 0; set x86 0; set x87 0;
+	set x88 0; set x89 0; set x90 0; set x91 0;
+	set x92 0; set x93 0; set x94 0; set x95 0;
+	set x96 0; set x97 0; set x98 0; set x99 0;
+	set x100 0; set x101 0; set x102 0; set x103 0;
+	set x104 0; set x105 0; set x106 0; set x107 0;
+	set x108 0; set x109 0; set x110 0; set x111 0;
+	set x112 0; set x113 0; set x114 0; set x115 0;
+	set x116 0; set x117 0; set x118 0; set x119 0;
+	set x120 0; set x121 0; set x122 0; set x123 0;
+	set x124 0; set x125 0; set x126 0; set x127 0;
+	set x128 0; set x129 0; set x130 0; set x131 0;
+	set x132 0; set x133 0; set x134 0; set x135 0;
+	set x136 0; set x137 0; set x138 0; set x139 0;
+	set x140 0; set x141 0; set x142 0; set x143 0;
+	set x144 0; set x145 0; set x146 0; set x147 0;
+	set x148 0; set x149 0; set x150 0; set x151 0;
+	set x152 0; set x153 0; set x154 0; set x155 0;
+	set x156 0; set x157 0; set x158 0; set x159 0;
+	set x160 0; set x161 0; set x162 0; set x163 0;
+	set x164 0; set x165 0; set x166 0; set x167 0;
+	set x168 0; set x169 0; set x170 0; set x171 0;
+	set x172 0; set x173 0; set x174 0; set x175 0;
+	set x176 0; set x177 0; set x178 0; set x179 0;
+	set x180 0; set x181 0; set x182 0; set x183 0;
+	set x184 0; set x185 0; set x186 0; set x187 0;
+	set x188 0; set x189 0; set x190 0; set x191 0;
+	set x192 0; set x193 0; set x194 0; set x195 0;
+	set x196 0; set x197 0; set x198 0; set x199 0;
+	set x200 0; set x201 0; set x202 0; set x203 0;
+	set x204 0; set x205 0; set x206 0; set x207 0;
+	set x208 0; set x209 0; set x210 0; set x211 0;
+	set x212 0; set x213 0; set x214 0; set x215 0;
+	set x216 0; set x217 0; set x218 0; set x219 0;
+	set x220 0; set x221 0; set x222 0; set x223 0;
+	set x224 0; set x225 0; set x226 0; set x227 0;
+	set x228 0; set x229 0; set x230 0; set x231 0;
+	set x232 0; set x233 0; set x234 0; set x235 0;
+	set x236 0; set x237 0; set x238 0; set x239 0;
+	set x240 0; set x241 0; set x242 0; set x243 0;
+	set x244 0; set x245 0; set x246 0; set x247 0;
+	set x248 0; set x249 0; set x250 0; set x251 0;
 	set x252 0; set x253 0; set x254 0; set x255 0;
 	set y(0) {{1 2} {3 4}}
 	lset y(0) {1 1} 5
@@ -253,69 +253,69 @@ test lsetComp-3.3 {lset, compiled, flat args, scalar, one-byte offset} {
 
 test lsetComp-3.4 {lset, compiled, scalar, four-byte offset} {
     evalInProc {
-	set x0 0; set x1 0; set x2 0; set x3 0; 
-	set x4 0; set x5 0; set x6 0; set x7 0; 
-	set x8 0; set x9 0; set x10 0; set x11 0; 
-	set x12 0; set x13 0; set x14 0; set x15 0; 
-	set x16 0; set x17 0; set x18 0; set x19 0; 
-	set x20 0; set x21 0; set x22 0; set x23 0; 
-	set x24 0; set x25 0; set x26 0; set x27 0; 
-	set x28 0; set x29 0; set x30 0; set x31 0; 
-	set x32 0; set x33 0; set x34 0; set x35 0; 
-	set x36 0; set x37 0; set x38 0; set x39 0; 
-	set x40 0; set x41 0; set x42 0; set x43 0; 
-	set x44 0; set x45 0; set x46 0; set x47 0; 
-	set x48 0; set x49 0; set x50 0; set x51 0; 
-	set x52 0; set x53 0; set x54 0; set x55 0; 
-	set x56 0; set x57 0; set x58 0; set x59 0; 
-	set x60 0; set x61 0; set x62 0; set x63 0; 
-	set x64 0; set x65 0; set x66 0; set x67 0; 
-	set x68 0; set x69 0; set x70 0; set x71 0; 
-	set x72 0; set x73 0; set x74 0; set x75 0; 
-	set x76 0; set x77 0; set x78 0; set x79 0; 
-	set x80 0; set x81 0; set x82 0; set x83 0; 
-	set x84 0; set x85 0; set x86 0; set x87 0; 
-	set x88 0; set x89 0; set x90 0; set x91 0; 
-	set x92 0; set x93 0; set x94 0; set x95 0; 
-	set x96 0; set x97 0; set x98 0; set x99 0; 
-	set x100 0; set x101 0; set x102 0; set x103 0; 
-	set x104 0; set x105 0; set x106 0; set x107 0; 
-	set x108 0; set x109 0; set x110 0; set x111 0; 
-	set x112 0; set x113 0; set x114 0; set x115 0; 
-	set x116 0; set x117 0; set x118 0; set x119 0; 
-	set x120 0; set x121 0; set x122 0; set x123 0; 
-	set x124 0; set x125 0; set x126 0; set x127 0; 
-	set x128 0; set x129 0; set x130 0; set x131 0; 
-	set x132 0; set x133 0; set x134 0; set x135 0; 
-	set x136 0; set x137 0; set x138 0; set x139 0; 
-	set x140 0; set x141 0; set x142 0; set x143 0; 
-	set x144 0; set x145 0; set x146 0; set x147 0; 
-	set x148 0; set x149 0; set x150 0; set x151 0; 
-	set x152 0; set x153 0; set x154 0; set x155 0; 
-	set x156 0; set x157 0; set x158 0; set x159 0; 
-	set x160 0; set x161 0; set x162 0; set x163 0; 
-	set x164 0; set x165 0; set x166 0; set x167 0; 
-	set x168 0; set x169 0; set x170 0; set x171 0; 
-	set x172 0; set x173 0; set x174 0; set x175 0; 
-	set x176 0; set x177 0; set x178 0; set x179 0; 
-	set x180 0; set x181 0; set x182 0; set x183 0; 
-	set x184 0; set x185 0; set x186 0; set x187 0; 
-	set x188 0; set x189 0; set x190 0; set x191 0; 
-	set x192 0; set x193 0; set x194 0; set x195 0; 
-	set x196 0; set x197 0; set x198 0; set x199 0; 
-	set x200 0; set x201 0; set x202 0; set x203 0; 
-	set x204 0; set x205 0; set x206 0; set x207 0; 
-	set x208 0; set x209 0; set x210 0; set x211 0; 
-	set x212 0; set x213 0; set x214 0; set x215 0; 
-	set x216 0; set x217 0; set x218 0; set x219 0; 
-	set x220 0; set x221 0; set x222 0; set x223 0; 
-	set x224 0; set x225 0; set x226 0; set x227 0; 
-	set x228 0; set x229 0; set x230 0; set x231 0; 
-	set x232 0; set x233 0; set x234 0; set x235 0; 
-	set x236 0; set x237 0; set x238 0; set x239 0; 
-	set x240 0; set x241 0; set x242 0; set x243 0; 
-	set x244 0; set x245 0; set x246 0; set x247 0; 
-	set x248 0; set x249 0; set x250 0; set x251 0; 
+	set x0 0; set x1 0; set x2 0; set x3 0;
+	set x4 0; set x5 0; set x6 0; set x7 0;
+	set x8 0; set x9 0; set x10 0; set x11 0;
+	set x12 0; set x13 0; set x14 0; set x15 0;
+	set x16 0; set x17 0; set x18 0; set x19 0;
+	set x20 0; set x21 0; set x22 0; set x23 0;
+	set x24 0; set x25 0; set x26 0; set x27 0;
+	set x28 0; set x29 0; set x30 0; set x31 0;
+	set x32 0; set x33 0; set x34 0; set x35 0;
+	set x36 0; set x37 0; set x38 0; set x39 0;
+	set x40 0; set x41 0; set x42 0; set x43 0;
+	set x44 0; set x45 0; set x46 0; set x47 0;
+	set x48 0; set x49 0; set x50 0; set x51 0;
+	set x52 0; set x53 0; set x54 0; set x55 0;
+	set x56 0; set x57 0; set x58 0; set x59 0;
+	set x60 0; set x61 0; set x62 0; set x63 0;
+	set x64 0; set x65 0; set x66 0; set x67 0;
+	set x68 0; set x69 0; set x70 0; set x71 0;
+	set x72 0; set x73 0; set x74 0; set x75 0;
+	set x76 0; set x77 0; set x78 0; set x79 0;
+	set x80 0; set x81 0; set x82 0; set x83 0;
+	set x84 0; set x85 0; set x86 0; set x87 0;
+	set x88 0; set x89 0; set x90 0; set x91 0;
+	set x92 0; set x93 0; set x94 0; set x95 0;
+	set x96 0; set x97 0; set x98 0; set x99 0;
+	set x100 0; set x101 0; set x102 0; set x103 0;
+	set x104 0; set x105 0; set x106 0; set x107 0;
+	set x108 0; set x109 0; set x110 0; set x111 0;
+	set x112 0; set x113 0; set x114 0; set x115 0;
+	set x116 0; set x117 0; set x118 0; set x119 0;
+	set x120 0; set x121 0; set x122 0; set x123 0;
+	set x124 0; set x125 0; set x126 0; set x127 0;
+	set x128 0; set x129 0; set x130 0; set x131 0;
+	set x132 0; set x133 0; set x134 0; set x135 0;
+	set x136 0; set x137 0; set x138 0; set x139 0;
+	set x140 0; set x141 0; set x142 0; set x143 0;
+	set x144 0; set x145 0; set x146 0; set x147 0;
+	set x148 0; set x149 0; set x150 0; set x151 0;
+	set x152 0; set x153 0; set x154 0; set x155 0;
+	set x156 0; set x157 0; set x158 0; set x159 0;
+	set x160 0; set x161 0; set x162 0; set x163 0;
+	set x164 0; set x165 0; set x166 0; set x167 0;
+	set x168 0; set x169 0; set x170 0; set x171 0;
+	set x172 0; set x173 0; set x174 0; set x175 0;
+	set x176 0; set x177 0; set x178 0; set x179 0;
+	set x180 0; set x181 0; set x182 0; set x183 0;
+	set x184 0; set x185 0; set x186 0; set x187 0;
+	set x188 0; set x189 0; set x190 0; set x191 0;
+	set x192 0; set x193 0; set x194 0; set x195 0;
+	set x196 0; set x197 0; set x198 0; set x199 0;
+	set x200 0; set x201 0; set x202 0; set x203 0;
+	set x204 0; set x205 0; set x206 0; set x207 0;
+	set x208 0; set x209 0; set x210 0; set x211 0;
+	set x212 0; set x213 0; set x214 0; set x215 0;
+	set x216 0; set x217 0; set x218 0; set x219 0;
+	set x220 0; set x221 0; set x222 0; set x223 0;
+	set x224 0; set x225 0; set x226 0; set x227 0;
+	set x228 0; set x229 0; set x230 0; set x231 0;
+	set x232 0; set x233 0; set x234 0; set x235 0;
+	set x236 0; set x237 0; set x238 0; set x239 0;
+	set x240 0; set x241 0; set x242 0; set x243 0;
+	set x244 0; set x245 0; set x246 0; set x247 0;
+	set x248 0; set x249 0; set x250 0; set x251 0;
 	set x252 0; set x253 0; set x254 0; set x255 0;
 	set x {{1 2} {3 4}}
 	lset x 1 1 5
@@ -338,69 +338,69 @@ test lsetComp-3.6 {lset, compiled, flat args, array, one-byte offset} {
 
 test lsetComp-3.7 {lset, compiled, flat args, array, four-byte offset} {
     evalInProc {
-	set x0 0; set x1 0; set x2 0; set x3 0; 
-	set x4 0; set x5 0; set x6 0; set x7 0; 
-	set x8 0; set x9 0; set x10 0; set x11 0; 
-	set x12 0; set x13 0; set x14 0; set x15 0; 
-	set x16 0; set x17 0; set x18 0; set x19 0; 
-	set x20 0; set x21 0; set x22 0; set x23 0; 
-	set x24 0; set x25 0; set x26 0; set x27 0; 
-	set x28 0; set x29 0; set x30 0; set x31 0; 
-	set x32 0; set x33 0; set x34 0; set x35 0; 
-	set x36 0; set x37 0; set x38 0; set x39 0; 
-	set x40 0; set x41 0; set x42 0; set x43 0; 
-	set x44 0; set x45 0; set x46 0; set x47 0; 
-	set x48 0; set x49 0; set x50 0; set x51 0; 
-	set x52 0; set x53 0; set x54 0; set x55 0; 
-	set x56 0; set x57 0; set x58 0; set x59 0; 
-	set x60 0; set x61 0; set x62 0; set x63 0; 
-	set x64 0; set x65 0; set x66 0; set x67 0; 
-	set x68 0; set x69 0; set x70 0; set x71 0; 
-	set x72 0; set x73 0; set x74 0; set x75 0; 
-	set x76 0; set x77 0; set x78 0; set x79 0; 
-	set x80 0; set x81 0; set x82 0; set x83 0; 
-	set x84 0; set x85 0; set x86 0; set x87 0; 
-	set x88 0; set x89 0; set x90 0; set x91 0; 
-	set x92 0; set x93 0; set x94 0; set x95 0; 
-	set x96 0; set x97 0; set x98 0; set x99 0; 
-	set x100 0; set x101 0; set x102 0; set x103 0; 
-	set x104 0; set x105 0; set x106 0; set x107 0; 
-	set x108 0; set x109 0; set x110 0; set x111 0; 
-	set x112 0; set x113 0; set x114 0; set x115 0; 
-	set x116 0; set x117 0; set x118 0; set x119 0; 
-	set x120 0; set x121 0; set x122 0; set x123 0; 
-	set x124 0; set x125 0; set x126 0; set x127 0; 
-	set x128 0; set x129 0; set x130 0; set x131 0; 
-	set x132 0; set x133 0; set x134 0; set x135 0; 
-	set x136 0; set x137 0; set x138 0; set x139 0; 
-	set x140 0; set x141 0; set x142 0; set x143 0; 
-	set x144 0; set x145 0; set x146 0; set x147 0; 
-	set x148 0; set x149 0; set x150 0; set x151 0; 
-	set x152 0; set x153 0; set x154 0; set x155 0; 
-	set x156 0; set x157 0; set x158 0; set x159 0; 
-	set x160 0; set x161 0; set x162 0; set x163 0; 
-	set x164 0; set x165 0; set x166 0; set x167 0; 
-	set x168 0; set x169 0; set x170 0; set x171 0; 
-	set x172 0; set x173 0; set x174 0; set x175 0; 
-	set x176 0; set x177 0; set x178 0; set x179 0; 
-	set x180 0; set x181 0; set x182 0; set x183 0; 
-	set x184 0; set x185 0; set x186 0; set x187 0; 
-	set x188 0; set x189 0; set x190 0; set x191 0; 
-	set x192 0; set x193 0; set x194 0; set x195 0; 
-	set x196 0; set x197 0; set x198 0; set x199 0; 
-	set x200 0; set x201 0; set x202 0; set x203 0; 
-	set x204 0; set x205 0; set x206 0; set x207 0; 
-	set x208 0; set x209 0; set x210 0; set x211 0; 
-	set x212 0; set x213 0; set x214 0; set x215 0; 
-	set x216 0; set x217 0; set x218 0; set x219 0; 
-	set x220 0; set x221 0; set x222 0; set x223 0; 
-	set x224 0; set x225 0; set x226 0; set x227 0; 
-	set x228 0; set x229 0; set x230 0; set x231 0; 
-	set x232 0; set x233 0; set x234 0; set x235 0; 
-	set x236 0; set x237 0; set x238 0; set x239 0; 
-	set x240 0; set x241 0; set x242 0; set x243 0; 
-	set x244 0; set x245 0; set x246 0; set x247 0; 
-	set x248 0; set x249 0; set x250 0; set x251 0; 
+	set x0 0; set x1 0; set x2 0; set x3 0;
+	set x4 0; set x5 0; set x6 0; set x7 0;
+	set x8 0; set x9 0; set x10 0; set x11 0;
+	set x12 0; set x13 0; set x14 0; set x15 0;
+	set x16 0; set x17 0; set x18 0; set x19 0;
+	set x20 0; set x21 0; set x22 0; set x23 0;
+	set x24 0; set x25 0; set x26 0; set x27 0;
+	set x28 0; set x29 0; set x30 0; set x31 0;
+	set x32 0; set x33 0; set x34 0; set x35 0;
+	set x36 0; set x37 0; set x38 0; set x39 0;
+	set x40 0; set x41 0; set x42 0; set x43 0;
+	set x44 0; set x45 0; set x46 0; set x47 0;
+	set x48 0; set x49 0; set x50 0; set x51 0;
+	set x52 0; set x53 0; set x54 0; set x55 0;
+	set x56 0; set x57 0; set x58 0; set x59 0;
+	set x60 0; set x61 0; set x62 0; set x63 0;
+	set x64 0; set x65 0; set x66 0; set x67 0;
+	set x68 0; set x69 0; set x70 0; set x71 0;
+	set x72 0; set x73 0; set x74 0; set x75 0;
+	set x76 0; set x77 0; set x78 0; set x79 0;
+	set x80 0; set x81 0; set x82 0; set x83 0;
+	set x84 0; set x85 0; set x86 0; set x87 0;
+	set x88 0; set x89 0; set x90 0; set x91 0;
+	set x92 0; set x93 0; set x94 0; set x95 0;
+	set x96 0; set x97 0; set x98 0; set x99 0;
+	set x100 0; set x101 0; set x102 0; set x103 0;
+	set x104 0; set x105 0; set x106 0; set x107 0;
+	set x108 0; set x109 0; set x110 0; set x111 0;
+	set x112 0; set x113 0; set x114 0; set x115 0;
+	set x116 0; set x117 0; set x118 0; set x119 0;
+	set x120 0; set x121 0; set x122 0; set x123 0;
+	set x124 0; set x125 0; set x126 0; set x127 0;
+	set x128 0; set x129 0; set x130 0; set x131 0;
+	set x132 0; set x133 0; set x134 0; set x135 0;
+	set x136 0; set x137 0; set x138 0; set x139 0;
+	set x140 0; set x141 0; set x142 0; set x143 0;
+	set x144 0; set x145 0; set x146 0; set x147 0;
+	set x148 0; set x149 0; set x150 0; set x151 0;
+	set x152 0; set x153 0; set x154 0; set x155 0;
+	set x156 0; set x157 0; set x158 0; set x159 0;
+	set x160 0; set x161 0; set x162 0; set x163 0;
+	set x164 0; set x165 0; set x166 0; set x167 0;
+	set x168 0; set x169 0; set x170 0; set x171 0;
+	set x172 0; set x173 0; set x174 0; set x175 0;
+	set x176 0; set x177 0; set x178 0; set x179 0;
+	set x180 0; set x181 0; set x182 0; set x183 0;
+	set x184 0; set x185 0; set x186 0; set x187 0;
+	set x188 0; set x189 0; set x190 0; set x191 0;
+	set x192 0; set x193 0; set x194 0; set x195 0;
+	set x196 0; set x197 0; set x198 0; set x199 0;
+	set x200 0; set x201 0; set x202 0; set x203 0;
+	set x204 0; set x205 0; set x206 0; set x207 0;
+	set x208 0; set x209 0; set x210 0; set x211 0;
+	set x212 0; set x213 0; set x214 0; set x215 0;
+	set x216 0; set x217 0; set x218 0; set x219 0;
+	set x220 0; set x221 0; set x222 0; set x223 0;
+	set x224 0; set x225 0; set x226 0; set x227 0;
+	set x228 0; set x229 0; set x230 0; set x231 0;
+	set x232 0; set x233 0; set x234 0; set x235 0;
+	set x236 0; set x237 0; set x238 0; set x239 0;
+	set x240 0; set x241 0; set x242 0; set x243 0;
+	set x244 0; set x245 0; set x246 0; set x247 0;
+	set x248 0; set x249 0; set x250 0; set x251 0;
 	set x252 0; set x253 0; set x254 0; set x255 0;
 	set y(0) {{1 2} {3 4}}
 	lset y(0) 1 1 5
diff --git a/tests/mathop.test b/tests/mathop.test
index f6d0c00..12a4e7f 100644
--- a/tests/mathop.test
+++ b/tests/mathop.test
@@ -901,10 +901,10 @@ test mathop-22.2 { bitwise ops on bignums } {
     set exp {}
     foreach d {5 7 2  1 D C  1 F E  0 -D -D  8 -9 -1  -0 -E E} {
         if {[string match "-*" $d]} {
-            set d [format %X [expr 15-0x[string range $d 1 end]]]
-            set val [expr -0x[string repeat $d $dig]-1]
+            set d [format %X [expr {15-"0x[string range $d 1 end]"}]]
+            set val [expr {-"0x[string repeat $d $dig]"-1}]
         } else {
-            set val [expr 0x[string repeat $d $dig]]
+            set val [expr {"0x[string repeat $d $dig]"}]
         }
         lappend exp $val
     }
diff --git a/tests/namespace-old.test b/tests/namespace-old.test
index 1d6a805..e4715f8 100644
--- a/tests/namespace-old.test
+++ b/tests/namespace-old.test
@@ -749,13 +749,13 @@ test namespace-old-9.14 {imported commands can be removed} {
 } {{} 1 {invalid command name "cmd1"}}
 test namespace-old-9.15 {existing commands can't be overwritten} {
     proc cmd1 {x y} {
-        return [expr $x+$y]
+        return [expr {$x+$y}]
     }
     list [catch {namespace import test_ns_import::cmd?} msg] $msg \
          [cmd1 3 5]
 } {1 {can't import command "cmd1": already exists} 8}
 test namespace-old-9.16 {use "-force" option to override existing commands} {
-    proc cmd1 {x y} { return [expr $x+$y] }
+    proc cmd1 {x y} { return [expr {$x+$y}] }
     list [cmd1 3 5] \
          [namespace import -force test_ns_import::cmd?] \
          [cmd1 3 5]
diff --git a/tests/oo.test b/tests/oo.test
index 43aa608..0f58c5d 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -1898,7 +1898,7 @@ test oo-13.5 {OO: changing an object's class: non-class to class} -setup {
 	class oo::class
     }
     oo::define fooObj {
-	method x {} {expr 1+2+3}
+	method x {} {expr {1+2+3}}
     }
     [fooObj new] x
 } -cleanup {
@@ -1910,7 +1910,7 @@ test oo-13.6 {OO: changing an object's class: class to non-class} -setup {
 } -body {
     set result dangling
     oo::define foo {
-	method x {} {expr 1+2+3}
+	method x {} {expr {1+2+3}}
     }
     oo::class create boo {
 	superclass foo
@@ -1933,7 +1933,7 @@ test oo-13.7 {OO: changing an object's class} -setup {
 } -body {
     oo::define bar method x {} {return ok}
     oo::define foo {
-	method x {} {expr 1+2+3}
+	method x {} {expr {1+2+3}}
 	self mixin foo
     }
     lappend result [foo x]
@@ -1947,7 +1947,7 @@ test oo-13.8 {OO: changing an object's class to itself} -setup {
     oo::class create foo
 } -body {
     oo::define foo {
-	method x {} {expr 1+2+3}
+	method x {} {expr {1+2+3}}
     }
     oo::objdefine foo class foo
 } -cleanup {
diff --git a/tests/opt.test b/tests/opt.test
index 0af4488..419e6bf 100644
--- a/tests/opt.test
+++ b/tests/opt.test
@@ -27,8 +27,8 @@ package require opt 0.4.8
 set n $::tcl::OptDescN
 
 test opt-1.1 {OptKeyRegister / check that auto allocation is skipping existing keys} {
-    list [::tcl::OptKeyRegister {} $n] [::tcl::OptKeyRegister {} [expr $n+1]] [::tcl::OptKeyRegister {}]
-} "$n [expr $n+1] [expr $n+2]"
+    list [::tcl::OptKeyRegister {} $n] [::tcl::OptKeyRegister {} [expr {$n+1}]] [::tcl::OptKeyRegister {}]
+} "$n [expr {$n+1}] [expr {$n+2}]"
 
 test opt-2.1 {OptKeyDelete} {
     list [::tcl::OptKeyRegister {} testkey] \
diff --git a/tests/parse.test b/tests/parse.test
index 9980015..4370acb 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -481,7 +481,7 @@ test parse-10.2 {Tcl_EvalTokens, backslash sequences} testevalex {
     testevalex {concat test\063\062test}
 } {test32test}
 test parse-10.3 {Tcl_EvalTokens, nested commands} testevalex {
-    testevalex {concat [expr 2 + 6]}
+    testevalex {concat [expr {2 + 6}]}
 } {8}
 test parse-10.4 {Tcl_EvalTokens, nested commands} testevalex {
     unset -nocomplain a
@@ -499,7 +499,7 @@ test parse-10.6 {Tcl_EvalTokens, array variables} testevalex {
 test parse-10.7 {Tcl_EvalTokens, array variables} testevalex {
     unset -nocomplain a
     set a(12) 46
-    testevalex {concat $a(1[expr 3 - 1])}
+    testevalex {concat $a(1[expr {3 - 1}])}
 } {46}
 test parse-10.8 {Tcl_EvalTokens, array variables} testevalex {
     unset -nocomplain a
diff --git a/tests/parseOld.test b/tests/parseOld.test
index 134a3c2..7218092 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -135,7 +135,7 @@ format %s $b
 } a22b
 test parseOld-4.4 {command substitution} {
     set a 7.7
-    if [catch {expr int($a)}] {set a foo}
+    if {[catch {expr {int($a)}}]} {set a foo}
     set a
 } 7.7
 
diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index 8121377..ad328f8 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -315,7 +315,7 @@ namespace eval pkg2 {
     namespace export p2-1
 }
 proc pkg2::p2-1 { num } {
-    return [expr $num * 2]
+    return [expr {$num * 2}]
 }
 } [file join pkg pkg2_a.tcl]
 
@@ -328,7 +328,7 @@ namespace eval pkg2 {
     namespace export p2-2
 }
 proc pkg2::p2-2 { num } {
-    return [expr $num * 3]
+    return [expr {$num * 3}]
 }
 } [file join pkg pkg2_b.tcl]
 
@@ -409,10 +409,10 @@ namespace eval pkg3 {
     namespace export p3-1 p3-2
 }
 proc pkg3::p3-1 { num } {
-    return {[expr $num * 2]}
+    return {[expr {$num * 2}]}
 }
 proc pkg3::p3-2 { num } {
-    return {[expr $num * 3]}
+    return {[expr {$num * 3}]}
 }
 } [file join pkg pkg3.tcl]
 
@@ -520,10 +520,10 @@ namespace eval circ2 {
     namespace export c2-1 c2-2
 }
 proc circ2::c2-1 { num } {
-    return [expr $num * [circ3::c3-1]]
+    return [expr {$num * [circ3::c3-1]}]
 }
 proc circ2::c2-2 { num } {
-    return [expr $num * [circ3::c3-2]]
+    return [expr {$num * [circ3::c3-2]}]
 }
 } [file join pkg circ2.tcl]
 
diff --git a/tests/proc-old.test b/tests/proc-old.test
index 79ee1fa..a92c6ab 100644
--- a/tests/proc-old.test
+++ b/tests/proc-old.test
@@ -25,7 +25,7 @@ catch {rename foo ""}
 proc tproc {} {return a; return b}
 test proc-old-1.1 {simple procedure call and return} {tproc} a
 proc tproc x {
-    set x [expr $x+1]
+    set x [expr {$x + 1}]
     return $x
 }
 test proc-old-1.2 {simple procedure call and return} {tproc 2} 3
@@ -49,7 +49,7 @@ test proc-old-1.6 {simple procedure call and return (shared proc body string)} {
 
 test proc-old-2.1 {local and global variables} {
     proc tproc x {
-	set x [expr $x+1]
+	set x [expr {$x + 1}]
 	return $x
     }
     set x 42
@@ -57,7 +57,7 @@ test proc-old-2.1 {local and global variables} {
 } {7 42}
 test proc-old-2.2 {local and global variables} {
     proc tproc x {
-	set y [expr $x+1]
+	set y [expr {$x + 1}]
 	return $y
     }
     set y 18
@@ -66,7 +66,7 @@ test proc-old-2.2 {local and global variables} {
 test proc-old-2.3 {local and global variables} {
     proc tproc x {
 	global y
-	set y [expr $x+1]
+	set y [expr {$x + 1}]
 	return $y
     }
     set y 189
@@ -75,7 +75,7 @@ test proc-old-2.3 {local and global variables} {
 test proc-old-2.4 {local and global variables} {
     proc tproc x {
 	global y
-	return [expr $x+$y]
+	return [expr {$x + $y}]
     }
     set y 189
     list [tproc 6] $y
@@ -504,7 +504,7 @@ test proc-old-10.1 {ByteCode epoch change during recursive proc execution} {
         set y 20
         rename expr expr.old
         rename expr.old expr
-        if $x then {t1 0} ;# recursive call after foo's code is invalidated
+        if {$x} then {t1 0} ;# recursive call after foo's code is invalidated
         return 20
     }
     t1 1
diff --git a/tests/proc.test b/tests/proc.test
index 7039dbb..4b539c4 100644
--- a/tests/proc.test
+++ b/tests/proc.test
@@ -100,7 +100,7 @@ test proc-1.7 {Tcl_ProcObjCmd, check that formal parameter names are not array e
     catch {rename p ""}
 } -returnCodes error -body {
     proc p {a(1) a(2)} {
-	set z [expr $a(1)+$a(2)]
+	set z [expr {$a(1)+$a(2)}]
 	puts "$z=z, $a(1)=$a(1)"
     }
 } -result {formal parameter "a(1)" is an array element}
diff --git a/tests/pwd.test b/tests/pwd.test
index 3486e70..3d4cffd 100644
--- a/tests/pwd.test
+++ b/tests/pwd.test
@@ -20,9 +20,10 @@ test pwd-1.1 {simple pwd} {
     catch pwd
 } 0
 test pwd-1.2 {simple pwd} {
-    expr [string length pwd]>0
+    expr {[string length [pwd]]>0}
 } 1
-test pwd-1.3 {pwd takes no args} -body {
+
+test pwd-2.1 {pwd takes no args} -body {
     pwd foobar
 } -returnCodes error -result "wrong \# args: should be \"pwd\""
 
diff --git a/tests/remote.tcl b/tests/remote.tcl
index 097e41f..3c2fb51 100644
--- a/tests/remote.tcl
+++ b/tests/remote.tcl
@@ -91,8 +91,8 @@ if {![info exists serverPort]} {
 if {![info exists serverPort]} {
     for {set i 0} {$i < $argc} {incr i} {
 	if {[string compare -port [lindex $argv $i]] == 0} {
-	    if {$i < [expr $argc - 1]} {
-		set serverPort [lindex $argv [expr $i + 1]]
+	    if {$i < $argc - 1} {
+		set serverPort [lindex $argv [expr {$i + 1}]]
 	    }
 	    break
 	}
@@ -110,8 +110,8 @@ if {![info exists serverAddress]} {
 if {![info exists serverAddress]} {
     for {set i 0} {$i < $argc} {incr i} {
 	if {[string compare -address [lindex $argv $i]] == 0} {
-	    if {$i < [expr $argc - 1]} {
-		set serverAddress [lindex $argv [expr $i + 1]]
+	    if {$i < $argc - 1} {
+		set serverAddress [lindex $argv [expr {$i + 1}]]
 	    }
 	    break
 	}
diff --git a/tests/socket.test b/tests/socket.test
index ca60588..2060f35 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -67,7 +67,7 @@ if {"::tcltest" ni [namespace children]} {
 
 ::tcltest::loadTestedCommands
 
-if {[expr {[info exists ::env(TRAVIS_OSX_IMAGE)] && [string match xcode* $::env(TRAVIS_OSX_IMAGE)]}]} {
+if {[info exists ::env(TRAVIS_OSX_IMAGE)] && [string match xcode* $::env(TRAVIS_OSX_IMAGE)]} {
     return
 }
 
@@ -939,7 +939,7 @@ test socket_$af-6.1 {accept callback error} -constraints [list socket supported_
     }
     close $f
     set f [open "|[list [interpreter] $path(script)]" r+]
-    proc accept {s a p} {expr 10 / 0}
+    proc accept {s a p} {expr {10 / 0}}
     set s [socket -server accept -myaddr $localhost 0]
     puts $f [lindex [fconfigure $s -sockname] 2]
     close $f
diff --git a/tests/subst.test b/tests/subst.test
index e203ad2..8a8b3f1 100644
--- a/tests/subst.test
+++ b/tests/subst.test
@@ -132,20 +132,20 @@ test subst-7.3 {switches} -returnCodes error -body {
 } -result {bad option "-bogus": must be -nobackslashes, -nocommands, or -novariables}
 test subst-7.4 {switches} {
     set x 123
-    subst -nobackslashes {abc $x [expr 1+2] \\\x41}
+    subst -nobackslashes {abc $x [expr {1 + 2}] \\\x41}
 } {abc 123 3 \\\x41}
 test subst-7.5 {switches} {
     set x 123
-    subst -nocommands {abc $x [expr 1+2] \\\x41}
-} {abc 123 [expr 1+2] \A}
+    subst -nocommands {abc $x [expr {1 + 2}] \\\x41}
+} {abc 123 [expr {1 + 2}] \A}
 test subst-7.6 {switches} {
     set x 123
-    subst -novariables {abc $x [expr 1+2] \\\x41}
+    subst -novariables {abc $x [expr {1 + 2}] \\\x41}
 } {abc $x 3 \A}
 test subst-7.7 {switches} {
     set x 123
-    subst -nov -nob -noc {abc $x [expr 1+2] \\\x41}
-} {abc $x [expr 1+2] \\\x41}
+    subst -nov -nob -noc {abc $x [expr {1 + 2}] \\\x41}
+} {abc $x [expr {1 + 2}] \\\x41}
 
 test subst-8.1 {return in a subst} {
     subst {foo [return {x}; bogus code] bar}
diff --git a/tests/tcltest.test b/tests/tcltest.test
index fc6b183..5e2485b 100644
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -1444,7 +1444,7 @@ test tcltest-23.2 {removeFile} {
 	file mkdir $mfdir
 	makeFile {} t1.tmp
 	makeFile {} et1.tmp $mfdir
-	if  {![file exists [file join [temporaryDirectory] t1.tmp]] || \
+	if {![file exists [file join [temporaryDirectory] t1.tmp]] || \
 		![file exists [file join $mfdir et1.tmp]]} {
 	    error "file creation didn't work"
 	}
diff --git a/tests/trace.test b/tests/trace.test
index 726590f..c1e1a24 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -166,30 +166,30 @@ test trace-1.10 {trace variable reads} {
 } {}
 test trace-1.11 {read traces that modify the array structure} {
     unset -nocomplain x
-    set x(bar) 0 
-    trace variable x r {set x(foo) 1 ;#} 
-    trace variable x r {unset -nocomplain x(bar) ;#} 
+    set x(bar) 0
+    trace variable x r {set x(foo) 1 ;#}
+    trace variable x r {unset -nocomplain x(bar) ;#}
     array get x
 } {}
 test trace-1.12 {read traces that modify the array structure} {
     unset -nocomplain x
-    set x(bar) 0 
-    trace variable x r {unset -nocomplain x(bar) ;#} 
-    trace variable x r {set x(foo) 1 ;#} 
+    set x(bar) 0
+    trace variable x r {unset -nocomplain x(bar) ;#}
+    trace variable x r {set x(foo) 1 ;#}
     array get x
 } {}
 test trace-1.13 {read traces that modify the array structure} {
     unset -nocomplain x
-    set x(bar) 0 
-    trace variable x r {set x(foo) 1 ;#} 
-    trace variable x r {unset -nocomplain x;#} 
+    set x(bar) 0
+    trace variable x r {set x(foo) 1 ;#}
+    trace variable x r {unset -nocomplain x;#}
     list [catch {array get x} res] $res
 } {1 {can't read "x(bar)": no such variable}}
 test trace-1.14 {read traces that modify the array structure} {
     unset -nocomplain x
-    set x(bar) 0 
-    trace variable x r {unset -nocomplain x;#} 
-    trace variable x r {set x(foo) 1 ;#} 
+    set x(bar) 0
+    trace variable x r {unset -nocomplain x;#}
+    trace variable x r {set x(foo) 1 ;#}
     list [catch {array get x} res] $res
 } {1 {can't read "x(bar)": no such variable}}
 
@@ -421,7 +421,7 @@ test trace-5.8 {array traces fire for undefined variables} {
     trace add variable x array {set x(foo) 1 ;#}
     set res "names: [array names x]"
 } {names: foo}
-    
+
 # Trace multiple trace types at once.
 
 test trace-6.1 {multiple ops traced at once} {
@@ -769,7 +769,7 @@ test trace-13.1 {delete one trace from another} {
     trace add variable x read {traceTag 2}
     trace add variable x read {traceTag 3}
     trace add variable x read {traceTag 4}
-    trace add variable x read delTraces 
+    trace add variable x read delTraces
     trace add variable x read {traceTag 5}
     set x
     set info
@@ -874,7 +874,7 @@ test trace-14.5 {trace command, invalid option} {
 } [list 1 "bad option \"gorp\": must be add, info, remove, variable, vdelete, or vinfo"]
 
 # Again, [trace ... command] and [trace ... variable] share syntax and
-# error message styles for their opList options; these loops test those 
+# error message styles for their opList options; these loops test those
 # error messages.
 
 set i 0
@@ -2106,7 +2106,7 @@ foo foo 0 1 leave}
 test trace-28.2 {exec traces with 'error'} {
     set info {}
     set res {}
-    
+
     proc foo {} {
 	if {[catch {bar}]} {
 	    return "error"
@@ -2128,7 +2128,7 @@ test trace-28.2 {exec traces with 'error'} {
 
     trace remove execution foo {enter enterstep leave leavestep} \
       [list traceExecute foo]
-    
+
     list $res [join $info \n]
 } {{error error} {foo foo enter
 foo {if {[catch {bar}]} {
@@ -2154,7 +2154,7 @@ foo foo 0 error leave}}
 test trace-28.3 {exec traces with 'return -code error'} {
     set info {}
     set res {}
-    
+
     proc foo {} {
 	if {[catch {bar}]} {
 	    return "error"
@@ -2176,7 +2176,7 @@ test trace-28.3 {exec traces with 'return -code error'} {
 
     trace remove execution foo {enter enterstep leave leavestep} \
       [list traceExecute foo]
-    
+
     list $res [join $info \n]
 } {{error error} {foo foo enter
 foo {if {[catch {bar}]} {
@@ -2206,7 +2206,7 @@ test trace-28.4 {exec traces in child with 'return -code error'} {
     set res [interp eval child {
 	set info {}
 	set res {}
-	
+
 	proc foo {} {
 	    if {[catch {bar}]} {
 		return "error"
@@ -2214,21 +2214,21 @@ test trace-28.4 {exec traces in child with 'return -code error'} {
 		return "ok"
 	    }
 	}
-	
+
 	proc bar {} { return -code error "msg" }
-	
+
 	lappend res [foo]
-	
+
 	trace add execution foo {enter enterstep leave leavestep} \
 	  [list traceExecute foo]
-	
+
 	# With the trace active
-	
+
 	lappend res [foo]
-	
+
 	trace remove execution foo {enter enterstep leave leavestep} \
 	  [list traceExecute foo]
-	
+
 	list $res
     }]
     interp delete child
@@ -2314,8 +2314,8 @@ test trace-28.10 {exec trace info nonsense} {
 } {1 {wrong # args: should be "trace remove execution name opList command"}}
 
 test trace-29.1 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} {
-    testcmdtrace tracetest {set stuff [expr 14 + 16]}
-} {{expr 14 + 16} {expr 14 + 16} {set stuff [expr 14 + 16]} {set stuff 30}}
+    testcmdtrace tracetest {set stuff [expr {14 + 16}]}
+} {{expr {14 + 16}} {expr {14 + 16}} {set stuff [expr {14 + 16}]} {set stuff 30}}
 test trace-29.2 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} {
     testcmdtrace tracetest {set stuff [info tclversion]}
 } [concat {{info tclversion} {info tclversion} ::tcl::info::tclversion {::tcl::info::tclversion} {set stuff [info tclversion]}} [list "set stuff [info tclversion]"]]
@@ -2612,7 +2612,7 @@ test trace-39 {bug #3484621: tracing Bc'ed commands} -setup {
     proc foo {} {
 	incr ::traceCalls
 	# choose a BC'ed command that is 'unlikely' to interfere with tcltest's
-	# internals 
+	# internals
 	lset ::bar 1 2
     }
 } -body {
@@ -2633,7 +2633,7 @@ test trace-39 {bug #3484621: tracing Bc'ed commands} -setup {
     rename dotrace {}
     rename foo {}
 } -result {3 | 0 1 1}
-    
+
 test trace-39.1 {bug #3485022: tracing Bc'ed commands} -setup {
     set ::traceLog 0
     set ::traceCalls 0
@@ -2670,7 +2670,7 @@ test trace-40.1 {execution trace errors become command errors} {
     catch foo m
     return -level 0 $m[unset m]
 } bar
-    
+
 # Delete procedures when done, so we don't clash with other tests
 # (e.g. foobar will clash with 'unknown' tests).
 catch {rename foobar {}}
diff --git a/tests/uplevel.test b/tests/uplevel.test
index 5f0dd5c..fa3be92 100644
--- a/tests/uplevel.test
+++ b/tests/uplevel.test
@@ -17,7 +17,7 @@ if {"::tcltest" ni [namespace children]} {
 }
 
 proc a {x y} {
-    newset z [expr $x+$y]
+    newset z [expr {$x + $y}]
     return $z
 }
 proc newset {name value} {
@@ -247,7 +247,7 @@ test uplevel-7.1 {var access, no LVT in either level} -setup {
     unset -nocomplain y z
 } -body {
     namespace eval foo {
-	set x 2 
+	set x 2
 	set y 2
 	uplevel 1 {
 	    set x 3
@@ -266,7 +266,7 @@ test uplevel-7.2 {var access, no LVT in upper level} -setup {
     unset -nocomplain y z
 } -body {
     proc foo {} {
-	set x 2 
+	set x 2
 	set y 2
 	uplevel 1 {
 	    set x 3
@@ -290,7 +290,7 @@ test uplevel-7.3 {var access, LVT in upper level} -setup {
     }
 } -body {
     proc foo {} {
-	set x 2 
+	set x 2
 	set y 2
 	uplevel 1 {
 	    set x 3
@@ -309,7 +309,7 @@ test uplevel-7.3 {var access, LVT in upper level} -setup {
 test uplevel-8.0 {
     string representation isn't generated when there is only one argument
 } -body {
-    set res {} 
+    set res {}
     set script [list lindex 5]
     lappend res [apply {script {
 	uplevel $script
diff --git a/tests/var.test b/tests/var.test
index 4c6664d..8bb55a2 100644
--- a/tests/var.test
+++ b/tests/var.test
@@ -451,7 +451,7 @@ test var-7.4 {Tcl_VariableObjCmd, list of vars} -setup {
         variable three 3 four 4
     }
     list [lsort [info vars test_ns_var::*]] \
-         [namespace eval test_ns_var {expr $three+$four}]
+         [namespace eval test_ns_var {expr {$three+$four}}]
 } -result [list [lsort {::test_ns_var::four ::test_ns_var::three ::test_ns_var::two ::test_ns_var::one}] 7]
 test var-7.5 {Tcl_VariableObjCmd, value for last var is optional} -setup {
     catch {unset a}
diff --git a/tests/while-old.test b/tests/while-old.test
index eddc025..f5315fb 100644
--- a/tests/while-old.test
+++ b/tests/while-old.test
@@ -20,7 +20,7 @@ if {"::tcltest" ni [namespace children]} {
 
 test while-old-1.1 {basic while loops} {
     set count 0
-    while {$count < 10} {set count [expr $count+1]}
+    while {$count < 10} {set count [expr {$count + 1}]}
     set count
 } 10
 test while-old-1.2 {basic while loops} {
@@ -58,9 +58,9 @@ test while-old-2.1 {continue in while loop} {
     set index 0
     set result {}
     while {$index < 5} {
-	if {$index == 2} {set index [expr $index+1]; continue}
+	if {$index == 2} {set index [expr {$index + 1}]; continue}
 	set result [concat $result [lindex $list $index]]
-	set index [expr $index+1]
+	set index [expr {$index + 1}]
     }
     set result
 } {1 2 4 5}
@@ -72,7 +72,7 @@ test while-old-3.1 {break in while loop} {
     while {$index < 5} {
 	if {$index == 3} break
 	set result [concat $result [lindex $list $index]]
-	set index [expr $index+1]
+	set index [expr {$index + 1}]
     }
     set result
 } {1 2 3}
diff --git a/tests/while.test b/tests/while.test
index 30aff4b..b804aa5 100644
--- a/tests/while.test
+++ b/tests/while.test
@@ -77,7 +77,7 @@ test while-1.9 {TclCompileWhileCmd: simple command body} -body {
     set a {}
     set i 1
     while {$i<6} {
-	if $i==4 break
+	if {$i==4} break
 	set a [concat $a $i]
         incr i
     }
@@ -112,8 +112,8 @@ test while-1.12 {TclCompileWhileCmd: long command body} -body {
     set a {}
     set i 1
     while {$i<6} {
-	if $i==4 break
-	if $i>5 continue
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -155,7 +155,7 @@ test while-1.13 {TclCompileWhileCmd: while command result} -body {
 } -result {}
 test while-1.14 {TclCompileWhileCmd: while command result} -body {
     set i 0
-    set a [while {$i < 5} {if $i==3 break; incr i}]
+    set a [while {$i < 5} {if {$i==3} break; incr i}]
     return $a
 } -cleanup {
     unset a i
@@ -207,9 +207,9 @@ test while-2.4 {continue tests, long command body} -body {
     set a {}
     set i 1
     while {$i<6} {
-	if $i==2 {incr i; continue}
-	if $i==4 break
-	if $i>5 continue
+	if {$i==2} {incr i; continue}
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -277,9 +277,9 @@ test while-3.3 {break tests, long command body} -body {
     set a {}
     set i 1
     while {$i<6} {
-	if $i==2 {incr i; continue}
-	if $i==5 break
-	if $i>5 continue
+	if {$i==2} {incr i; continue}
+	if {$i==5} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -295,7 +295,7 @@ test while-3.3 {break tests, long command body} -body {
 	    catch {incr i 5} msg
 	    catch {incr i -5} msg
 	}
-	if $i==4 break
+	if {$i==4} break
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -401,7 +401,7 @@ test while-4.10 {while (not compiled): simple command body} -body {
     set i 1
     set z while
     $z {$i<6} {
-	if $i==4 break
+	if {$i==4} break
 	set a [concat $a $i]
         incr i
     }
@@ -439,8 +439,8 @@ test while-4.13 {while (not compiled): long command body} -body {
     set z while
     set i 1
     $z {$i<6} {
-	if $i==4 break
-	if $i>5 continue
+	if {$i==4} break
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -484,7 +484,7 @@ test while-4.14 {while (not compiled): while command result} -body {
 test while-4.15 {while (not compiled): while command result} -body {
     set i 0
     set z while
-    set a [$z {$i < 5} {if $i==3 break; incr i}]
+    set a [$z {$i < 5} {if {$i==3} break; incr i}]
     return $a
 } -cleanup {
     unset a i z
@@ -538,9 +538,9 @@ test while-5.4 {break tests, long command body with computed command names} -bod
     set i 1
     set z break
     while {$i<6} {
-	if $i==2 {incr i; continue}
-	if $i==5 $z
-	if $i>5 continue
+	if {$i==2} {incr i; continue}
+	if {$i==5} $z
+	if {$i>5} continue
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -556,7 +556,7 @@ test while-5.4 {break tests, long command body with computed command names} -bod
 	    catch {incr i 5} msg
 	    catch {incr i -5} msg
 	}
-	if $i==4 $z
+	if {$i==4} $z
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
@@ -637,9 +637,9 @@ test while-6.5 {continue tests, long command body with computed command names} -
     set i 1
     set z continue
     while {$i<6} {
-	if $i==2 {incr i; continue}
-	if $i==4 break
-	if $i>5 $z
+	if {$i==2} {incr i; continue}
+	if {$i==4} break
+	if {$i>5} $z
 	if {$i>6 && $tcl_platform(machine)=="xxx"} {
 	    catch {set a $a} msg
 	    catch {incr i 5} msg
diff --git a/tests/winDde.test b/tests/winDde.test
index 1238102..2abfdd4 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -111,7 +111,7 @@ test winDde-1.1 {Settings the server's topic name} -constraints dde -body {
 } -result {foobar foobar self}
 
 test winDde-2.1 {Checking for other services} -constraints dde -body {
-    expr [llength [dde services {} {}]] >= 0
+    expr {[llength [dde services {} {}]] >= 0}
 } -result 1
 test winDde-2.2 {Checking for existence, with service and topic specified} \
 	-constraints dde -body {
@@ -119,11 +119,11 @@ test winDde-2.2 {Checking for existence, with service and topic specified} \
 } -result 1
 test winDde-2.3 {Checking for existence, with only the service specified} \
 	-constraints dde -body {
-    expr [llength [dde services TclEval {}]] >= 1
+    expr {[llength [dde services TclEval {}]] >= 1}
 } -result 1
 test winDde-2.4 {Checking for existence, with only the topic specified} \
 	-constraints dde -body {
-    expr [llength [dde services {} self]] >= 1
+    expr {[llength [dde services {} self]] >= 1}
 } -result 1
 
 # -------------------------------------------------------------------------
diff --git a/tests/zlib.test b/tests/zlib.test
index 7809482..7ddf1d7 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -140,7 +140,7 @@ test zlib-7.7 {zlib stream: Bug 25842c161} -constraints zlib -body {
 } -result ""
 # Also causes Tk Bug 10f2e7872b
 test zlib-7.8 {zlib stream: Bug b26e38a3e4} -constraints zlib -setup {
-    expr srand(12345)
+    expr {srand(12345)}
     set randdata {}
     for {set i 0} {$i<6001} {incr i} {
 	append randdata [binary format c [expr {int(256*rand())}]]
@@ -451,7 +451,7 @@ test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup {
     # Actual data isn't very important; needs to be substantially larger than
     # the internal buffer (32kB) and incompressible.
     set largeData {}
-    for {set i 0;expr srand(1)} {$i < 100000} {incr i} {
+    for {set i 0;expr {srand(1)}} {$i < 100000} {incr i} {
 	append largeData [lindex "a b c d e f g h i j k l m n o p" \
 		[expr {int(16*rand())}]]
     }
@@ -1032,7 +1032,7 @@ test zlib-13.1 {Ticket [8af92dfb66] - zlib stream mis-expansion} -constraints zl
     close $chanin
     close $chanout
 } -body {
-    file size $pathout    
+    file size $pathout
 } -cleanup {
     removeFile $pathout
     unset chanin pathin chanout pathout
@@ -1069,7 +1069,7 @@ test zlib-13.2 {Ticket [f70ce1fead] - zlib multi-stream expansion} -constraints
     fcopy $chanin $chanout
     chan pop $chanin
     close $chanout
-    #    
+    #
     list [file size $pathout1] [file size $pathout2]
 } -cleanup {
     close $chanin
-- 
cgit v0.12