diff options
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index d842289..d59d893 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -4927,7 +4927,8 @@ TclZipfs_AppHook( #ifdef _WIN32 Tcl_DString ds; - archive = Tcl_WinTCharToUtf((*argvPtr)[1], -1, &ds); + Tcl_DStringInit(&ds); + archive = Tcl_WCharToUtfDString((*argvPtr)[1], -1, &ds); #else /* !_WIN32 */ archive = (*argvPtr)[1]; #endif /* _WIN32 */ |