diff --git a/winsup/testsuite/ChangeLog b/winsup/testsuite/ChangeLog
index 4e335244c..d16f1f4a7 100644
--- a/winsup/testsuite/ChangeLog
+++ b/winsup/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-21  Christopher Faylor  <cgf@redhat.com>
+
+	* Makefile.in: Find tcl library in the right place.
+
 2003-01-21  Thomas Pfaff  <tpfaff@gmx.net>
 
 	* winsup.api/pthread/cancel9.c: Make child pid static global.
diff --git a/winsup/testsuite/Makefile.in b/winsup/testsuite/Makefile.in
index 1658c362d..b74f4c036 100644
--- a/winsup/testsuite/Makefile.in
+++ b/winsup/testsuite/Makefile.in
@@ -176,7 +176,7 @@ check: $(TESTSUP_LIB_NAME) $(RUNTIME) testsuite/site.exp
 	cd testsuite; \
 	EXPECT=${EXPECT} ; export EXPECT ; \
 	if [ -f $(bupdir2)/expect/expect ] ; then  \
-	   TCL_LIBRARY=`cd .. ; cd ${srcdir}/../tcl/library ; pwd` ; \
+	   TCL_LIBRARY=`cd .. ; cd ${srcdir}/../../tcl/library ; pwd` ; \
 	    export TCL_LIBRARY ; fi ; \
 	PATH=$(bupdir)/cygwin:$${PATH} ;\
 	$(RUNTEST) --tool winsup $(RUNTESTFLAGS)