From c1357b87cd03e78ba1b4d395a28896ccc4a9d117 Mon Sep 17 00:00:00 2001
From: Jason DeBettencourt <jason@tashtegollc.com>
Date: Mon, 18 Jan 2021 09:59:38 -0500
Subject: [PATCH] cleanup get working dir on windows: "echo /c %CD%" -> "/c cd
 "

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

diff --git a/testdata/tcl/crash5.test b/testdata/tcl/crash5.test
index 09ed38f..6744fd1 100644
--- a/testdata/tcl/crash5.test
+++ b/testdata/tcl/crash5.test
@@ -50,7 +50,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
 	proc get_pwd {} {
           if {$::tcl_platform(platform) eq "windows"} {
             return [string map [list \\ /] \
-              [string trim [exec -- $::env(ComSpec) /c echo %CD%]]]
+              [string trim [exec -- $::env(ComSpec) /c cd ]]]
           } else {
             return [pwd]
           }