From 9c88207cf3556c4799406ae89b25f82a6842ca57 Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Sat, 8 Feb 2003 16:46:32 +0000
Subject: [PATCH] * winsup.api/winsup.exp (ws_spawn): Tweak slightly to work
 with tcl 8.4.1.

---
 winsup/testsuite/ChangeLog             | 5 +++++
 winsup/testsuite/winsup.api/winsup.exp | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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"
 }