summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclFileName.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index bf463f5..2136883 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -1597,6 +1597,7 @@ Tcl_GlobObjCmd(
Tcl_DStringInit(&str);
for (i = 0; i < objc; i++) {
+ Tcl_DStringSetLength(&str, 0);
if (dir == PATH_GENERAL) {
TclDStringAppendDString(&str, &prefix);
}