diff --git a/winsup/testsuite/ChangeLog b/winsup/testsuite/ChangeLog
index beb33c200..708200531 100644
--- a/winsup/testsuite/ChangeLog
+++ b/winsup/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-08  Christopher Faylor  <cgf@redhat.com>
+
+	* winsup.api/winsup.exp (ws_spawn): Tweak slightly to work with tcl
+	8.4.1.
+
 2003-02-07  Christopher Faylor  <cgf@redhat.com>
 
 	* libltp/lib/parse_opts.c: Deal with C warnings.
diff --git a/winsup/testsuite/winsup.api/winsup.exp b/winsup/testsuite/winsup.api/winsup.exp
index 86064661b..ccfa7b200 100644
--- a/winsup/testsuite/winsup.api/winsup.exp
+++ b/winsup/testsuite/winsup.api/winsup.exp
@@ -23,7 +23,7 @@ if { [info exists env(CYGWIN_TESTSUITE_TESTS)] } {
 proc ws_spawn {cmd args} {
     global rv
     verbose "running $cmd\n"
-    catch [eval "exec $cmd"] rv
+    catch "exec $cmd" rv
     verbose send "catchCode = $rv\n"
 }