@@ -94,9 +94,12 @@
 	list [info procs b] $::x
 } {{} 2}
 
 test local-1.6 "local lambda in lsort" {
-	lsort -command [local lambda {a b} {string compare $a $b}] {d a f g}
+	proc a {} {
+		lsort -command [local lambda {a b} {string compare $a $b}] {d a f g}
+	}
+	a
 } {a d f g}
 
 test local-1.7 "check no reference procs" {
 	info procs "<reference*"
@@ -103,9 +106,9 @@
 } {}
 
 test local-1.8 "local on non-proc" {
 	list [catch {local set x blah} msg] $msg
-} {1 {not a proc: "blah"}}
+} {1 {not a command: "blah"}}
 
 test local-1.9 "local on existing proc" {
 	proc x {} {
 		proc a {b} {incr b}
@@ -219,12 +222,12 @@
 
 test upcall-1.4 "upcall errors" {
 	proc a {} {return 1}
 	list [catch {upcall a} msg] $msg
-} {1 {no previous proc: "a"}}
+} {1 {no previous command: "a"}}
 
 test upcall-1.4 "upcall errors" {
 	proc a {} {upcall a}
 	list [catch a msg] $msg
-} {1 {no previous proc: "a"}}
+} {1 {no previous command: "a"}}
 
 testreport