Index: generic/nsf.c =================================================================== diff -u -r9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8 -r41559ade739ad3f4f4282d7b2626f850cfdef9c6 --- generic/nsf.c (.../nsf.c) (revision 9f32dd2c379759ca82cf9b49dcc9c62af01f5cc8) +++ generic/nsf.c (.../nsf.c) (revision 41559ade739ad3f4f4282d7b2626f850cfdef9c6) @@ -4850,7 +4850,7 @@ * Don't allow overwriting of an object with an method. */ return NsfPrintError(interp, - "cannot overwrite child object with method %s; delete/rename it before overwriting", + "refuse to overwrite child object with method %s; delete/rename it before overwriting", methodName); } ok = (Tcl_Command_flags(cmd) & NSF_CMD_REDEFINE_PROTECTED_METHOD) == 0; @@ -4868,7 +4868,7 @@ */ Tcl_Obj *bootstrapObj = Tcl_GetVar2Ex(interp, "::nsf::bootstrap", NULL, TCL_GLOBAL_ONLY); if (bootstrapObj == NULL) { - result = NsfPrintError(interp, "method '%s' of %s cannot be overwritten; " + result = NsfPrintError(interp, "refuse to overwrite protected method '%s'; " "derive e.g. a sub-class!", methodName, ObjectName(object)); } else { result = TCL_OK; @@ -22167,7 +22167,7 @@ * We have a cmd, but no object. Don't allow to overwrite an ordinary * cmd by an nsf object. */ - result = NsfPrintError(interp, "cannot overwrite cmd %s; delete/rename it before overwriting", nameString); + result = NsfPrintError(interp, "refuse to overwrite cmd %s; delete/rename it before overwriting", nameString); goto create_method_exit; } }