diff options
-rw-r--r-- | generic/tclZipfs.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index cbfa48b..6f014eb 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -5556,10 +5556,9 @@ ZipFSMatchInDirectoryProc( wanted = types->type; if ((wanted & TCL_GLOB_TYPE_MOUNT) && (wanted != TCL_GLOB_TYPE_MOUNT)) { if (interp) { - Tcl_SetResult(interp, + ZIPFS_ERROR(interp, "Internal error: TCL_GLOB_TYPE_MOUNT should not " - "be set in conjunction with other glob types.", - TCL_STATIC); + "be set in conjunction with other glob types."); } return TCL_ERROR; } |