diff --git a/testdata/tcl/tester.tcl b/testdata/tcl/tester.tcl
index 61f479a..99677b5 100644
--- a/testdata/tcl/tester.tcl
+++ b/testdata/tcl/tester.tcl
@@ -175,7 +175,7 @@ proc get_pwd {} {
     #       defeat the purpose of this procedure.
     #
     return [string map [list \\ /] \
-        [string trim [exec -- $::env(ComSpec) /c echo %CD%]]]
+        [string trim [exec -- $::env(ComSpec) /c cd ]]]
   } else {
     return [pwd]
   }