
Here's a list of the cases i've found of unnecesary commas
separating string literals passed to vararg functions.


**** (1129) Tcl_HideCommand(
tcl/generic/tclBasic.c-1172-	Tcl_AppendResult(interp,
tcl/generic/tclBasic.c-1173-		"cannot use namespace qualifiers in hidden command",
tcl/generic/tclBasic.c:1174:		" token (rename)", NULL);
tcl/generic/tclBasic.c-1175-	return TCL_ERROR;
tcl/generic/tclBasic.c-1176-    }
--
tcl/generic/tclBasic.c-1195-    if (cmdPtr->nsPtr != iPtr->globalNsPtr) {
tcl/generic/tclBasic.c-1196-	Tcl_AppendResult(interp, "can only hide global namespace commands",
tcl/generic/tclBasic.c:1197:		" (use rename then hide)", NULL);
tcl/generic/tclBasic.c-1198-	return TCL_ERROR;
tcl/generic/tclBasic.c-1199-    }
--
**** (1294) Tcl_ExposeCommand(
tcl/generic/tclBasic.c-1322-    if (strstr(cmdName, "::") != NULL) {
tcl/generic/tclBasic.c-1323-	Tcl_AppendResult(interp, "can not expose to a namespace ",
tcl/generic/tclBasic.c:1324:		"(use expose to toplevel, then rename)", NULL);
tcl/generic/tclBasic.c-1325-	return TCL_ERROR;
tcl/generic/tclBasic.c-1326-    }
--
--
tcl/generic/tclCkalloc.c-916-    Tcl_AppendResult(interp, "bad option \"", argv[1],
tcl/generic/tclCkalloc.c-917-	    "\": should be active, break_on_malloc, info, init, onexit, ",
tcl/generic/tclCkalloc.c:918:	    "tag, trace, trace_on_at_malloc, or validate", NULL);
tcl/generic/tclCkalloc.c-919-    return TCL_ERROR;
tcl/generic/tclCkalloc.c-920-
--
**** (966) ConvertUTCToLocalUsingC(
tcl/generic/tclClock.c-990-	Tcl_AppendResult(interp,
tcl/generic/tclClock.c-991-		"localtime failed (clock value may be too ",
tcl/generic/tclClock.c:992:		"large/small to represent)", NULL);
tcl/generic/tclClock.c-993-	Tcl_SetErrorCode(interp, "CLOCK", "localtimeFailed", NULL);
tcl/generic/tclClock.c-994-	return TCL_ERROR;
--
--
tcl/generic/tclCmdIL.c-3946-		Tcl_AppendResult(interp,
tcl/generic/tclCmdIL.c-3947-			"\"-command\" option must be followed ",
tcl/generic/tclCmdIL.c:3948:			"by comparison command", NULL);
tcl/generic/tclCmdIL.c-3949-		return TCL_ERROR;
tcl/generic/tclCmdIL.c-3950-	    }
--
tcl/generic/tclCmdIL.c-3971-	    if (i == (objc-2)) {
tcl/generic/tclCmdIL.c-3972-		Tcl_AppendResult(interp, "\"-index\" option must be ",
tcl/generic/tclCmdIL.c:3973:			"followed by list index", NULL);
tcl/generic/tclCmdIL.c-3974-		return TCL_ERROR;
tcl/generic/tclCmdIL.c-3975-	    }
--
tcl/generic/tclCmdMZ.c-189-    if (doinline && ((objc - 2) != 0)) {
tcl/generic/tclCmdMZ.c-190-	Tcl_AppendResult(interp, "regexp match variables not allowed",
tcl/generic/tclCmdMZ.c:191:		" when using -inline", (char *) NULL);
tcl/generic/tclCmdMZ.c-192-	goto optionError;
tcl/generic/tclCmdMZ.c-193-    }
--
--
**** (2557)     typedef int (*strCmpFn_t)(const char *, const char *);
tcl/generic/tclCmdMZ.c-2688-		if (TclGetString(objv[i])[0] == '#') {
tcl/generic/tclCmdMZ.c-2689-		    Tcl_AppendResult(interp, ", this may be due to a ",
tcl/generic/tclCmdMZ.c:2690:			    "comment incorrectly placed outside of a ",
tcl/generic/tclCmdMZ.c:2691:			    "switch body - see the \"switch\" ",
tcl/generic/tclCmdMZ.c:2692:			    "documentation", NULL);
tcl/generic/tclCmdMZ.c-2693-		    break;
tcl/generic/tclCmdMZ.c-2694-		}
--
--
**** (61) Tcl_RegisterConfig(
tcl/generic/tclConfig.c-148-	    Tcl_Panic("%s.\n%s %s", Tcl_GetStringResult(interp),
tcl/generic/tclConfig.c-149-		    "Tcl_RegisterConfig: Unable to create namespace for",
tcl/generic/tclConfig.c:150:		    "package configuration.");
tcl/generic/tclConfig.c-151-	}
tcl/generic/tclConfig.c-152-    }
--
tcl/generic/tclConfig.c-157-	    QueryConfigObjCmd, (ClientData) pkg, QueryConfigDelete) == NULL) {
tcl/generic/tclConfig.c-158-        Tcl_Panic("%s %s", "Tcl_RegisterConfig: Unable to create query",
tcl/generic/tclConfig.c:159:		"command for package configuration");
tcl/generic/tclConfig.c-160-    }
tcl/generic/tclConfig.c-161-
--
**** (473) CopyRenameOneFile(
tcl/generic/tclFCmd.c-589-		    TclGetString(source), "\" to \"", TclGetString(target),
tcl/generic/tclFCmd.c-590-		    "\": trying to rename a volume or ",
tcl/generic/tclFCmd.c:591:		    "move a directory into itself", NULL);
tcl/generic/tclFCmd.c-592-	    goto done;
tcl/generic/tclFCmd.c-593-	} else if (errno != EXDEV) {
--
**** (1095) DoTildeSubst(
tcl/generic/tclFileName.c-1111-		Tcl_ResetResult(interp);
tcl/generic/tclFileName.c-1112-		Tcl_AppendResult(interp, "couldn't find HOME environment ",
tcl/generic/tclFileName.c:1113:			"variable to expand path", (char *) NULL);
tcl/generic/tclFileName.c-1114-	    }
tcl/generic/tclFileName.c-1115-	    return NULL;
--
tcl/generic/tclFileName.c-1262-	Tcl_AppendResult(interp,
tcl/generic/tclFileName.c-1263-		"\"-tails\" must be used with either ",
tcl/generic/tclFileName.c:1264:		"\"-directory\" or \"-path\"", NULL);
tcl/generic/tclFileName.c-1265-	return TCL_ERROR;
tcl/generic/tclFileName.c-1266-    }
--
**** (2520) SlaveRecursionLimit(
tcl/generic/tclInterp.c-2530-	if (Tcl_IsSafe(interp)) {
tcl/generic/tclInterp.c-2531-	    Tcl_AppendResult(interp, "permission denied: ",
tcl/generic/tclInterp.c:2532:		    "safe interpreters cannot change recursion limit",
tcl/generic/tclInterp.c-2533-		    (char *) NULL);
tcl/generic/tclInterp.c-2534-	    return TCL_ERROR;
--
**** (3952) SlaveCommandLimitCmd(
tcl/generic/tclInterp.c-4063-		if (gran < 1) {
tcl/generic/tclInterp.c-4064-		    Tcl_AppendResult(interp, "granularity must be at ",
tcl/generic/tclInterp.c:4065:			    "least 1", NULL);
tcl/generic/tclInterp.c-4066-		    return TCL_ERROR;
tcl/generic/tclInterp.c-4067-		}
--
tcl/generic/tclInterp.c-4078-		if (limit < 0) {
tcl/generic/tclInterp.c-4079-		    Tcl_AppendResult(interp, "command limit value must be at ",
tcl/generic/tclInterp.c:4080:			    "least 0", NULL);
tcl/generic/tclInterp.c-4081-		    return TCL_ERROR;
tcl/generic/tclInterp.c-4082-		}
--
**** (4123) SlaveTimeLimitCmd(
tcl/generic/tclInterp.c-4255-		if (gran < 1) {
tcl/generic/tclInterp.c-4256-		    Tcl_AppendResult(interp, "granularity must be at ",
tcl/generic/tclInterp.c:4257:			    "least 1", NULL);
tcl/generic/tclInterp.c-4258-		    return TCL_ERROR;
tcl/generic/tclInterp.c-4259-		}
--
tcl/generic/tclInterp.c-4302-		if (secObj != NULL && secLen == 0 && milliLen > 0) {
tcl/generic/tclInterp.c-4303-		    Tcl_AppendResult(interp, "may only set -milliseconds ",
tcl/generic/tclInterp.c:4304:			    "if -seconds is not also being reset", NULL);
tcl/generic/tclInterp.c-4305-		    return TCL_ERROR;
tcl/generic/tclInterp.c-4306-		}
tcl/generic/tclInterp.c-4307-		if (milliLen == 0 && (secObj == NULL || secLen > 0)) {
tcl/generic/tclInterp.c-4308-		    Tcl_AppendResult(interp, "may only reset -milliseconds ",
tcl/generic/tclInterp.c:4309:			    "if -seconds is also being reset", NULL);
tcl/generic/tclInterp.c-4310-		    return TCL_ERROR;
tcl/generic/tclInterp.c-4311-		}
--
**** (776) Tcl_UnregisterChannel(
tcl/generic/tclIO.c-785-	if (interp != NULL) {
tcl/generic/tclIO.c-786-	    Tcl_AppendResult(interp, "Illegal recursive call to close ",
tcl/generic/tclIO.c:787:		    "through close-handler of channel", NULL);
tcl/generic/tclIO.c-788-	}
tcl/generic/tclIO.c-789-	return TCL_ERROR;
--
**** (2715) Tcl_Close(
tcl/generic/tclIO.c-2754-	if (interp) {
tcl/generic/tclIO.c-2755-	    Tcl_AppendResult(interp, "Illegal recursive call to close ",
tcl/generic/tclIO.c:2756:		    "through close-handler of channel", NULL);
tcl/generic/tclIO.c-2757-	}
tcl/generic/tclIO.c-2758-	return TCL_ERROR;
--
**** (6735) Tcl_SetChannelOption(
tcl/generic/tclIO.c-6752-	if (interp) {
tcl/generic/tclIO.c-6753-	    Tcl_AppendResult(interp, "unable to set channel options: ",
tcl/generic/tclIO.c:6754:		    "background copy in progress", NULL);
tcl/generic/tclIO.c-6755-	}
tcl/generic/tclIO.c-6756-	return TCL_ERROR;
--
tcl/generic/tclIO.c-6805-	    if (interp) {
tcl/generic/tclIO.c-6806-		Tcl_AppendResult(interp, "bad value for -buffering: ",
tcl/generic/tclIO.c:6807:			"must be one of full, line, or none", NULL);
tcl/generic/tclIO.c-6808-		return TCL_ERROR;
tcl/generic/tclIO.c-6809-	    }
--
tcl/generic/tclIO.c-6867-		Tcl_AppendResult(interp,
tcl/generic/tclIO.c-6868-			"bad value for -eofchar: should be a list of zero,",
tcl/generic/tclIO.c:6869:			" one, or two elements", NULL);
tcl/generic/tclIO.c-6870-	    }
tcl/generic/tclIO.c-6871-	    ckfree((char *) argv);
--
tcl/generic/tclIO.c-6911-		Tcl_AppendResult(interp,
tcl/generic/tclIO.c-6912-			"bad value for -translation: must be a one or two",
tcl/generic/tclIO.c:6913:			" element list", NULL);
tcl/generic/tclIO.c-6914-	    }
tcl/generic/tclIO.c-6915-	    ckfree((char *) argv);
--
tcl/generic/tclIO.c-6940-		    Tcl_AppendResult(interp,
tcl/generic/tclIO.c-6941-			    "bad value for -translation: ",
tcl/generic/tclIO.c:6942:			    "must be one of auto, binary, cr, lf, crlf,",
tcl/generic/tclIO.c:6943:			    " or platform", NULL);
tcl/generic/tclIO.c-6944-		}
tcl/generic/tclIO.c-6945-		ckfree((char *) argv);
--
tcl/generic/tclIO.c-6992-		    Tcl_AppendResult(interp,
tcl/generic/tclIO.c-6993-			    "bad value for -translation: ",
tcl/generic/tclIO.c:6994:			    "must be one of auto, binary, cr, lf, crlf,",
tcl/generic/tclIO.c:6995:			    " or platform", NULL);
tcl/generic/tclIO.c-6996-		}
tcl/generic/tclIO.c-6997-		ckfree((char *) argv);
--
**** (1522) TclGetOpenModeEx(
tcl/generic/tclIOUtil.c-1688-	if (interp != NULL) {
tcl/generic/tclIOUtil.c-1689-	    Tcl_AppendResult(interp, "access mode must include either",
tcl/generic/tclIOUtil.c:1690:		    " RDONLY, WRONLY, or RDWR", NULL);
tcl/generic/tclIOUtil.c-1691-	}
tcl/generic/tclIOUtil.c-1692-	return -1;
--
**** (2142) Tcl_FSOpenFileChannel(
tcl/generic/tclIOUtil.c-2229-		if (interp != NULL) {
tcl/generic/tclIOUtil.c-2230-		    Tcl_AppendResult(interp, "could not seek to end ",
tcl/generic/tclIOUtil.c:2231:			    "of file while opening \"", Tcl_GetString(pathPtr),
tcl/generic/tclIOUtil.c-2232-			    "\": ", Tcl_PosixError(interp), NULL);
tcl/generic/tclIOUtil.c-2233-		}
--
**** (722) Tcl_CreateNamespace(
tcl/generic/tclNamesp.c-758-	Tcl_ResetResult(interp);
tcl/generic/tclNamesp.c-759-	Tcl_AppendResult(interp, "can't create namespace \"\": ",
tcl/generic/tclNamesp.c:760:		"only global namespace can have empty name", NULL);
tcl/generic/tclNamesp.c-761-	return NULL;
tcl/generic/tclNamesp.c-762-    } else {
--
**** (3043) Tcl_DbIncrRefCount(
tcl/generic/tclObj.c-3075-	if (!hPtr) {
tcl/generic/tclObj.c-3076-	    Tcl_Panic("%s%s",
tcl/generic/tclObj.c:3077:		    "Trying to incr ref count of ",
tcl/generic/tclObj.c:3078:		    "Tcl_Obj allocated in another thread");
tcl/generic/tclObj.c-3079-	}
tcl/generic/tclObj.c-3080-    }
--
**** (3108) Tcl_DbDecrRefCount(
tcl/generic/tclObj.c-3140-	if (!hPtr) {
tcl/generic/tclObj.c-3141-	    Tcl_Panic("%s%s",
tcl/generic/tclObj.c:3142:		    "Trying to decr ref count of ",
tcl/generic/tclObj.c:3143:		    "Tcl_Obj allocated in another thread");
tcl/generic/tclObj.c-3144-	}
tcl/generic/tclObj.c-3145-
--
**** (3180) Tcl_DbIsShared(
tcl/generic/tclObj.c-3210-	if (!hPtr) {
tcl/generic/tclObj.c-3211-	    Tcl_Panic("%s%s",
tcl/generic/tclObj.c:3212:		    "Trying to check shared status of",
tcl/generic/tclObj.c:3213:		    "Tcl_Obj allocated in another thread");
tcl/generic/tclObj.c-3214-	}
tcl/generic/tclObj.c-3215-    }
--
**** (1295) TclFSMakePathRelative(
tcl/generic/tclPathObj.c-1318-			    Tcl_ResetResult(interp);
tcl/generic/tclPathObj.c-1319-			    Tcl_AppendResult(interp, "can't find object",
tcl/generic/tclPathObj.c:1320:				    "string representation", (char *) NULL);
tcl/generic/tclPathObj.c-1321-			}
tcl/generic/tclPathObj.c-1322-			return NULL;
--
**** (1419) TclFSMakePathFromNormalized(
tcl/generic/tclPathObj.c-1440-		    Tcl_ResetResult(interp);
tcl/generic/tclPathObj.c-1441-		    Tcl_AppendResult(interp, "can't find object",
tcl/generic/tclPathObj.c:1442:			    "string representation", (char *) NULL);
tcl/generic/tclPathObj.c-1443-		}
tcl/generic/tclPathObj.c-1444-		return TCL_ERROR;
--
**** (2238) SetFsPathFromAny(
tcl/generic/tclPathObj.c-2306-		    Tcl_ResetResult(interp);
tcl/generic/tclPathObj.c-2307-		    Tcl_AppendResult(interp, "couldn't find HOME environment ",
tcl/generic/tclPathObj.c:2308:			    "variable to expand path", (char *) NULL);
tcl/generic/tclPathObj.c-2309-		}
tcl/generic/tclPathObj.c-2310-		return TCL_ERROR;
--
**** (1024) Tcl_OpenCommandChannel(
tcl/generic/tclPipe.c-1057-	if ((flags & TCL_STDOUT) && (outPipe == NULL)) {
tcl/generic/tclPipe.c-1058-	    Tcl_AppendResult(interp, "can't read output from command:",
tcl/generic/tclPipe.c:1059:		    " standard output was redirected", NULL);
tcl/generic/tclPipe.c-1060-	    goto error;
tcl/generic/tclPipe.c-1061-	}
tcl/generic/tclPipe.c-1062-	if ((flags & TCL_STDIN) && (inPipe == NULL)) {
tcl/generic/tclPipe.c-1063-	    Tcl_AppendResult(interp, "can't write input to command:",
tcl/generic/tclPipe.c:1064:		    " standard input was redirected", NULL);
tcl/generic/tclPipe.c-1065-	    goto error;
tcl/generic/tclPipe.c-1066-	}
--
**** (160) Tcl_PkgRequireEx(
tcl/generic/tclPkg.c-245-	Tcl_AppendResult(interp, "Cannot load package \"", name,
tcl/generic/tclPkg.c-246-		"\" in standalone executable: This package is not ",
tcl/generic/tclPkg.c:247:		"compiled with stub support", NULL);
tcl/generic/tclPkg.c-248-	return NULL;
tcl/generic/tclPkg.c-249-    }
--
tcl/generic/tclPkg.c-269-	if (pkgPtr->clientData != NULL) {
tcl/generic/tclPkg.c-270-	    Tcl_AppendResult(interp, "circular package dependency: ",
tcl/generic/tclPkg.c:271:		    "attempt to provide ", name, " ",
tcl/generic/tclPkg.c-272-		    (char *)(pkgPtr->clientData), " requires ", name, NULL);
tcl/generic/tclPkg.c-273-	    if (version != NULL) {
--
tcl/generic/tclPkg.c-339-		Tcl_AppendResult(interp, "attempt to provide package ",
tcl/generic/tclPkg.c-340-			name, " ", versionToProvide, " failed: ",
tcl/generic/tclPkg.c:341:			"bad return code: ", Tcl_GetString(codePtr), NULL);
tcl/generic/tclPkg.c-342-		Tcl_DecrRefCount(codePtr);
tcl/generic/tclPkg.c-343-		code = TCL_ERROR;
--
**** (1262) TclMergeReturnOptions(
tcl/generic/tclResult.c-1340-		    TclGetString(valuePtr),
tcl/generic/tclResult.c-1341-		    "\": must be ok, error, return, break, ",
tcl/generic/tclResult.c:1342:		    "continue, or an integer", NULL);
tcl/generic/tclResult.c-1343-	    goto error;
tcl/generic/tclResult.c-1344-	}
--
tcl/generic/tclResult.c-1360-	    Tcl_ResetResult(interp);
tcl/generic/tclResult.c-1361-	    Tcl_AppendResult(interp, "bad -level value: ",
tcl/generic/tclResult.c:1362:		    "expected non-negative integer but got \"",
tcl/generic/tclResult.c-1363-		    TclGetString(valuePtr), "\"", NULL);
tcl/generic/tclResult.c-1364-	    goto error;
--
--
**** (1595) TestdstringCmd(dummy, interp, argc, argv)
tcl/generic/tclTest.c-1686-	Tcl_AppendResult(interp, "bad option \"", argv[1],
tcl/generic/tclTest.c-1687-		"\": must be append, element, end, free, get, length, ",
tcl/generic/tclTest.c:1688:		"result, trunc, or start", NULL);
tcl/generic/tclTest.c-1689-	return TCL_ERROR;
tcl/generic/tclTest.c-1690-    }
--
--
**** (2617) TestlinkCmd(dummy, interp, argc, argv)
tcl/generic/tclTest.c-2643-	Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
tcl/generic/tclTest.c-2644-		" option ?arg arg arg arg arg arg arg arg arg arg arg arg",
tcl/generic/tclTest.c:2645:		" arg arg?\"", NULL);
tcl/generic/tclTest.c-2646-	return TCL_ERROR;
tcl/generic/tclTest.c-2647-    }
--
tcl/generic/tclTest.c-2651-		argv[0], " ", argv[1],
tcl/generic/tclTest.c-2652-		" intRO realRO boolRO stringRO wideRO charRO ucharRO shortRO",
tcl/generic/tclTest.c:2653:		" ushortRO uintRO longRO ulongRO floatRO uwideRO\"", NULL);
tcl/generic/tclTest.c-2654-	    return TCL_ERROR;
tcl/generic/tclTest.c-2655-	}
--
tcl/generic/tclTest.c-2842-		    argv[0], " ", argv[1],
tcl/generic/tclTest.c-2843-		    " intValue realValue boolValue stringValue wideValue",
tcl/generic/tclTest.c:2844:		    " charValue ucharValue shortValue ushortValue uintValue",
tcl/generic/tclTest.c:2845:		    " longValue ulongValue floatValue uwideValue\"", NULL);
tcl/generic/tclTest.c-2846-	    return TCL_ERROR;
tcl/generic/tclTest.c-2847-	}
--
tcl/generic/tclTest.c-2946-		    argv[0], " ", argv[1],
tcl/generic/tclTest.c-2947-		    " intValue realValue boolValue stringValue wideValue",
tcl/generic/tclTest.c:2948:		    " charValue ucharValue shortValue ushortValue uintValue",
tcl/generic/tclTest.c:2949:		    " longValue ulongValue floatValue uwideValue\"", NULL);
tcl/generic/tclTest.c-2950-	    return TCL_ERROR;
tcl/generic/tclTest.c-2951-	}
--
**** (4055) TestsetplatformCmd(clientData, interp, argc, argv)
tcl/generic/tclTest.c-4077-    } else {
tcl/generic/tclTest.c-4078-        Tcl_AppendResult(interp, "unsupported platform: should be one of ",
tcl/generic/tclTest.c:4079:		"unix, or windows", NULL);
tcl/generic/tclTest.c-4080-	return TCL_ERROR;
tcl/generic/tclTest.c-4081-    }
--
**** (4984) TeststatprocCmd (dummy, interp, argc, argv)
tcl/generic/tclTest.c-5007-    } else {
tcl/generic/tclTest.c-5008-	Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ",
tcl/generic/tclTest.c:5009:		"must be TclpStat, ",
tcl/generic/tclTest.c:5010:		"TestStatProc1, TestStatProc2, or TestStatProc3", NULL);
tcl/generic/tclTest.c-5011-	return TCL_ERROR;
tcl/generic/tclTest.c-5012-    }
--
tcl/generic/tclTest.c-5015-	if (proc == PretendTclpStat) {
tcl/generic/tclTest.c-5016-	    Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ",
tcl/generic/tclTest.c:5017:		   "must be ",
tcl/generic/tclTest.c:5018:		   "TestStatProc1, TestStatProc2, or TestStatProc3", NULL);
tcl/generic/tclTest.c-5019-	    return TCL_ERROR;
tcl/generic/tclTest.c-5020-	}
--
tcl/generic/tclTest.c-5024-    } else {
tcl/generic/tclTest.c-5025-	Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ",
tcl/generic/tclTest.c:5026:		"must be insert or delete", NULL);
tcl/generic/tclTest.c-5027-	return TCL_ERROR;
tcl/generic/tclTest.c-5028-    }
--
tcl/generic/tclTest.c-5030-    if (retVal == TCL_ERROR) {
tcl/generic/tclTest.c-5031-	Tcl_AppendResult(interp, "\"", argv[2], "\": ",
tcl/generic/tclTest.c:5032:		"could not be ", argv[1], "ed", NULL);
tcl/generic/tclTest.c-5033-    }
tcl/generic/tclTest.c-5034-
--
**** (5293) TestaccessprocCmd (dummy, interp, argc, argv)
tcl/generic/tclTest.c-5316-    } else {
tcl/generic/tclTest.c-5317-	Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ",
tcl/generic/tclTest.c:5318:		"must be TclpAccess, ",
tcl/generic/tclTest.c:5319:		"TestAccessProc1, TestAccessProc2, or TestAccessProc3", NULL);
tcl/generic/tclTest.c-5320-	return TCL_ERROR;
tcl/generic/tclTest.c-5321-    }
--
tcl/generic/tclTest.c-5324-	if (proc == PretendTclpAccess) {
tcl/generic/tclTest.c-5325-	    Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": must be ",
tcl/generic/tclTest.c:5326:		   "TestAccessProc1, TestAccessProc2, or TestAccessProc3",
tcl/generic/tclTest.c-5327-		   NULL);
tcl/generic/tclTest.c-5328-	    return TCL_ERROR;
--
tcl/generic/tclTest.c-5333-    } else {
tcl/generic/tclTest.c-5334-	Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ",
tcl/generic/tclTest.c:5335:		"must be insert or delete", NULL);
tcl/generic/tclTest.c-5336-	return TCL_ERROR;
tcl/generic/tclTest.c-5337-    }
--
tcl/generic/tclTest.c-5339-    if (retVal == TCL_ERROR) {
tcl/generic/tclTest.c-5340-	Tcl_AppendResult(interp, "\"", argv[2], "\": ",
tcl/generic/tclTest.c:5341:		"could not be ", argv[1], "ed", NULL);
tcl/generic/tclTest.c-5342-    }
tcl/generic/tclTest.c-5343-
--
**** (5403) TestopenfilechannelprocCmd (dummy, interp, argc, argv)
tcl/generic/tclTest.c-5426-    } else {
tcl/generic/tclTest.c-5427-	Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ",
tcl/generic/tclTest.c:5428:		"must be TclpOpenFileChannel, ",
tcl/generic/tclTest.c:5429:		"TestOpenFileChannelProc1, TestOpenFileChannelProc2, or ",
tcl/generic/tclTest.c:5430:		"TestOpenFileChannelProc3", NULL);
tcl/generic/tclTest.c-5431-	return TCL_ERROR;
tcl/generic/tclTest.c-5432-    }
--
tcl/generic/tclTest.c-5435-	if (proc == PretendTclpOpenFileChannel) {
tcl/generic/tclTest.c-5436-	    Tcl_AppendResult(interp, "bad arg \"", argv[1], "\": ",
tcl/generic/tclTest.c:5437:		   "must be ",
tcl/generic/tclTest.c:5438:		   "TestOpenFileChannelProc1, TestOpenFileChannelProc2, or ",
tcl/generic/tclTest.c:5439:		   "TestOpenFileChannelProc3", NULL);
tcl/generic/tclTest.c-5440-	    return TCL_ERROR;
tcl/generic/tclTest.c-5441-	}
--
tcl/generic/tclTest.c-5445-    } else {
tcl/generic/tclTest.c-5446-	Tcl_AppendResult(interp, "bad option \"", argv[1], "\": ",
tcl/generic/tclTest.c:5447:		"must be insert or delete", NULL);
tcl/generic/tclTest.c-5448-	return TCL_ERROR;
tcl/generic/tclTest.c-5449-    }
--
tcl/generic/tclTest.c-5451-    if (retVal == TCL_ERROR) {
tcl/generic/tclTest.c-5452-	Tcl_AppendResult(interp, "\"", argv[2], "\": ",
tcl/generic/tclTest.c:5453:		"could not be ", argv[1], "ed", NULL);
tcl/generic/tclTest.c-5454-    }
tcl/generic/tclTest.c-5455-
--
**** (5599) TestChannelCmd(clientData, interp, argc, argv)
tcl/generic/tclTest.c-6044-
tcl/generic/tclTest.c-6045-    Tcl_AppendResult(interp, "bad option \"", cmdName, "\": should be ",
tcl/generic/tclTest.c:6046:            "cut, clearchannelhandlers, info, isshared, mode, open, "
tcl/generic/tclTest.c-6047-	    "readable, splice, writable, transform, unstack", NULL);
tcl/generic/tclTest.c-6048-    return TCL_ERROR;
--
**** (6070) TestChannelEventCmd(dummy, interp, argc, argv)
tcl/generic/tclTest.c-6259-    }
tcl/generic/tclTest.c-6260-    Tcl_AppendResult(interp, "bad command ", cmd, ", must be one of ",
tcl/generic/tclTest.c:6261:            "add, delete, list, set, or removeall", NULL);
tcl/generic/tclTest.c-6262-    return TCL_ERROR;
tcl/generic/tclTest.c-6263-}
--
**** (861) TestobjCmd(clientData, interp, objc, objv)
tcl/generic/tclTestObj.c-1027-		"bad option \"", Tcl_GetString(objv[1]),
tcl/generic/tclTestObj.c-1028-		"\": must be assign, convert, duplicate, freeallvars, ",
tcl/generic/tclTestObj.c:1029:		"newobj, objcount, objtype, refcount, type, or types", NULL);
tcl/generic/tclTestObj.c-1030-	return TCL_ERROR;
tcl/generic/tclTestObj.c-1031-    }
--
**** (3190) ObjMakeUpvar(
tcl/generic/tclVar.c-3243-	    Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"",
tcl/generic/tclVar.c-3244-		    myName, "\": upvar won't create namespace variable that ",
tcl/generic/tclVar.c:3245:		    "refers to procedure variable", NULL);
tcl/generic/tclVar.c-3246-	    return TCL_ERROR;
tcl/generic/tclVar.c-3247-	}
--
**** (3274) TclPtrMakeUpvar(
tcl/generic/tclVar.c-3312-		Tcl_AppendResult((Tcl_Interp *) iPtr, "bad variable name \"",
tcl/generic/tclVar.c-3313-			myName, "\": upvar won't create a scalar variable ",
tcl/generic/tclVar.c:3314:			"that looks like an array element", NULL);
tcl/generic/tclVar.c-3315-		return TCL_ERROR;
tcl/generic/tclVar.c-3316-	    }
--
**** (882) TtySetOptionProc(
tcl/unix/tclUnixChan.c-949-	    if (interp) {
tcl/unix/tclUnixChan.c-950-		Tcl_AppendResult(interp, "bad value for -handshake: ",
tcl/unix/tclUnixChan.c:951:			"must be one of xonxoff, rtscts, dtrdsr or none",
tcl/unix/tclUnixChan.c-952-			NULL);
tcl/unix/tclUnixChan.c-953-	    }
--
tcl/unix/tclUnixChan.c-1014-		Tcl_AppendResult(interp,
tcl/unix/tclUnixChan.c-1015-			"bad value for -ttycontrol: should be a list of",
tcl/unix/tclUnixChan.c:1016:			"signal,value pairs", NULL);
tcl/unix/tclUnixChan.c-1017-	    }
tcl/unix/tclUnixChan.c-1018-	    ckfree((char *) argv);
--
tcl/unix/tclUnixChan.c-1062-		    Tcl_AppendResult(interp, "bad signal \"", argv[i],
tcl/unix/tclUnixChan.c-1063-			    "\" for -ttycontrol: must be ",
tcl/unix/tclUnixChan.c:1064:			    "DTR, RTS or BREAK", NULL);
tcl/unix/tclUnixChan.c-1065-		}
tcl/unix/tclUnixChan.c-1066-		ckfree((char *) argv);
--
--
**** (146) TestfilehandlerCmd(
tcl/unix/tclUnixTest.c-326-	Tcl_AppendResult(interp, "bad option \"", argv[1],
tcl/unix/tclUnixTest.c-327-		"\": must be close, clear, counts, create, empty, fill, ",
tcl/unix/tclUnixTest.c:328:		"fillpartial, oneevent, wait, or windowevent", NULL);
tcl/unix/tclUnixTest.c-329-	return TCL_ERROR;
tcl/unix/tclUnixTest.c-330-    }
--
**** (38) TclpDlopen(
tcl/win/tclWinLoad.c-110-	case ERROR_DLL_NOT_FOUND:
tcl/win/tclWinLoad.c-111-	    Tcl_AppendResult(interp, "this library or a dependent library",
tcl/win/tclWinLoad.c:112:		    " could not be found in library path", NULL);
tcl/win/tclWinLoad.c-113-	    break;
tcl/win/tclWinLoad.c-114-	case ERROR_PROC_NOT_FOUND:
tcl/win/tclWinLoad.c-115-	    Tcl_AppendResult(interp, "A function specified in the import",
tcl/win/tclWinLoad.c:116:		    " table could not be resolved by the system.  Windows",
tcl/win/tclWinLoad.c:117:		    " is not telling which one, I'm sorry.", NULL);
tcl/win/tclWinLoad.c-118-	    break;
tcl/win/tclWinLoad.c-119-	case ERROR_INVALID_DLL:
tcl/win/tclWinLoad.c-120-	    Tcl_AppendResult(interp, "this library or a dependent library",
tcl/win/tclWinLoad.c:121:		    " is damaged", NULL);
tcl/win/tclWinLoad.c-122-	    break;
tcl/win/tclWinLoad.c-123-	case ERROR_DLL_INIT_FAILED:
tcl/win/tclWinLoad.c-124-	    Tcl_AppendResult(interp, "the library initialization",
tcl/win/tclWinLoad.c:125:		    " routine failed", NULL);
tcl/win/tclWinLoad.c-126-	    break;
tcl/win/tclWinLoad.c-127-	default:
--
**** (1650) SerialSetOptionProc(
tcl/win/tclWinSerial.c-1760-		Tcl_AppendResult(interp, "bad value \"", value,
tcl/win/tclWinSerial.c-1761-			"\" for -handshake: must be one of xonxoff, rtscts, ",
tcl/win/tclWinSerial.c:1762:			"dtrdsr or none", NULL);
tcl/win/tclWinSerial.c-1763-	    }
tcl/win/tclWinSerial.c-1764-	    return TCL_ERROR;
--
tcl/win/tclWinSerial.c-1793-	    if (interp != NULL) {
tcl/win/tclWinSerial.c-1794-		Tcl_AppendResult(interp, "bad value for -xchar: should be ",
tcl/win/tclWinSerial.c:1795:			"a list of two elements with each a single character",
tcl/win/tclWinSerial.c-1796-			NULL);
tcl/win/tclWinSerial.c-1797-	    }
--
tcl/win/tclWinSerial.c-1852-		Tcl_AppendResult(interp, "bad value \"", value,
tcl/win/tclWinSerial.c-1853-			"\" for -ttycontrol: should be a list of ",
tcl/win/tclWinSerial.c:1854:			"signal,value pairs", NULL);
tcl/win/tclWinSerial.c-1855-	    }
tcl/win/tclWinSerial.c-1856-	    ckfree((char *) argv);
--
tcl/win/tclWinSerial.c-1933-		Tcl_AppendResult(interp, "bad value \"", value,
tcl/win/tclWinSerial.c-1934-			"\" for -sysbuffer: should be a list of one or two ",
tcl/win/tclWinSerial.c:1935:			"integers > 0", NULL);
tcl/win/tclWinSerial.c-1936-	    }
tcl/win/tclWinSerial.c-1937-	    return TCL_ERROR;
--



Trivial patch for tclBasic.c =>



--- tclBasic.c-orig	2006-06-30 17:17:24.937500000 +0100
+++ tclBasic.c	2006-06-30 17:17:56.281250000 +0100
@@ -1170,7 +1170,7 @@
 
     if (strstr(hiddenCmdToken, "::") != NULL) {
 	Tcl_AppendResult(interp,
-		"cannot use namespace qualifiers in hidden command",
+		"cannot use namespace qualifiers in hidden command"
 		" token (rename)", NULL);
 	return TCL_ERROR;
     }
@@ -1193,7 +1193,7 @@
      */
 
     if (cmdPtr->nsPtr != iPtr->globalNsPtr) {
-	Tcl_AppendResult(interp, "can only hide global namespace commands",
+	Tcl_AppendResult(interp, "can only hide global namespace commands"
 		" (use rename then hide)", NULL);
 	return TCL_ERROR;
     }
@@ -1320,7 +1320,7 @@
      */
 
     if (strstr(cmdName, "::") != NULL) {
-	Tcl_AppendResult(interp, "can not expose to a namespace ",
+	Tcl_AppendResult(interp, "can not expose to a namespace "
 		"(use expose to toplevel, then rename)", NULL);
 	return TCL_ERROR;
     }

