From afcb6fb00b921c929e09627a60fbcd16d77ac565 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 4 Jul 2012 00:07:51 +0000
Subject: missed a spot

---
 generic/tclFileName.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 63faa6d..edb6581 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -1575,8 +1575,7 @@ Tcl_GlobObjCmd(
 	    Tcl_DStringInit(&prefix);
 	}
 	for (i = 0; i < objc; i++) {
-	    string = Tcl_GetStringFromObj(objv[i], &length);
-	    Tcl_DStringAppend(&prefix, string, length);
+	    TclDStringAppendObj(&prefix, objv[i]);
 	    if (i != objc -1) {
 		Tcl_DStringAppend(&prefix, separators, 1);
 	    }
-- 
cgit v0.12