23,25d22
< static int		EncodingDirsObjCmd(ClientData dummy,
< 			    Tcl_Interp *interp, int objc,
< 			    Tcl_Obj *CONST objv[]);
508c505,519
< 	return EncodingDirsObjCmd(dummy, interp, objc-1, objv+1);
---
> 	if (objc > 3) {
> 	    Tcl_WrongNumArgs(interp, 2, objv, "?dirList?");
> 	    return TCL_ERROR;
> 	}
> 	if (objc == 2) {
> 	    Tcl_SetObjResult(interp, Tcl_GetEncodingSearchPath());
> 	    return TCL_OK;
> 	}
> 	if (Tcl_SetEncodingSearchPath(objv[2]) == TCL_ERROR) {
> 	    Tcl_AppendResult(interp, "expected directory list but got \"",
> 		    TclGetString(objv[2]), "\"", NULL);
> 	    return TCL_ERROR;
> 	}
> 	Tcl_SetObjResult(interp, objv[2]);
> 	break;
529,568d539
<     return TCL_OK;
< }
< 
< /*
<  *----------------------------------------------------------------------
<  *
<  * EncodingDirsObjCmd --
<  *
<  *	This command manipulates the encoding search path.
<  *
<  * Results:
<  *	A standard Tcl result.
<  *
<  * Side effects:
<  *	Can set the encoding search path.
<  *
<  *----------------------------------------------------------------------
<  */
< 
< int
< EncodingDirsObjCmd(
<     ClientData dummy,		/* Not used. */
<     Tcl_Interp *interp,		/* Current interpreter. */
<     int objc,			/* Number of arguments. */
<     Tcl_Obj *CONST objv[])	/* Argument objects. */
< {
<     if (objc > 2) {
< 	Tcl_WrongNumArgs(interp, 1, objv, "?dirList?");
< 	return TCL_ERROR;
<     }
<     if (objc == 1) {
< 	Tcl_SetObjResult(interp, Tcl_GetEncodingSearchPath());
< 	return TCL_OK;
<     }
<     if (Tcl_SetEncodingSearchPath(objv[1]) == TCL_ERROR) {
< 	Tcl_AppendResult(interp, "expected directory list but got \"",
< 		TclGetString(objv[1]), "\"", NULL);
< 	return TCL_ERROR;
<     }
<     Tcl_SetObjResult(interp, objv[1]);
