From aabaed09c7fb138a18e1e05ea545e767e52649b9 Mon Sep 17 00:00:00 2001
From: Jason DeBettencourt <jason@tashtegollc.com>
Date: Sat, 16 Jan 2021 13:01:07 -0500
Subject: [PATCH] get_pwd fix for windows

---
 testdata/tcl/tester.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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