typo

2 files changed, 4 insertions, 4 deletions

diff --git a/tests/fCmd.test b/tests/fCmd.test
index 00e442a..8b2dff1 100644
--- a/tests/fCmd.test
+++ b/tests/fCmd.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: fCmd.test,v 1.53 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: fCmd.test,v 1.54 2006/03/21 14:34:11 dgp Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -27,7 +27,7 @@ testConstraint 2000orNewer [expr {![testConstraint 95or98]}]
 
 # Find a group that exists on this Unix system, or else skip tests that
 # require Unix groups.
-testConstraint foundGroup [expr {![textConstraint unix]}]
+testConstraint foundGroup [expr {![testConstraint unix]}]
 if {[testConstraint unix]} {
     catch {
 	set groupList [exec groups]
diff --git a/tests/safe.test b/tests/safe.test
index 9324398..2c6218b 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: safe.test,v 1.20 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: safe.test,v 1.21 2006/03/21 14:35:26 dgp Exp $
 
 package require Tcl 8.5
 
@@ -168,7 +168,7 @@ proc SafeEval {script} {
 }
 
 test safe-6.1 {test safe interpreters knowledge of the world} {
-    lsort [SaveEval {info globals}]
+    lsort [SafeEval {info globals}]
 } {tcl_interactive tcl_patchLevel tcl_platform tcl_version}
 test safe-6.2 {test safe interpreters knowledge of the world} {
     SafeEval {info script}