* generic/tclInt.h: Removed the "nsName" Tcl_ObjType from the

        * generic/tclNamesp.c:  registered set.  Revised the management of
        * generic/tclObj.c:     the intrep of that Tcl_ObjType.  Revised the
        * tests/obj.test:       TclGetNamespaceFromObj() routine to return
        TCL_ERROR and write a consistent error message when a namespace is
        not found.  [Bug 1588842.  Patch 1686862]

        ***POTENTIAL INCOMPATIBILITY***
        For callers of Tcl_GetObjType() on the name "nsName".

        * generic/tclExecute.c: Update TclGetNamespaceFromObj() callers.
        * generic/tclProc.c:

        * tests/apply.test:             Updated tests to expect new consistent
        * tests/namespace-old.test:     error message when a namespace is not
        * tests/namespace.test:         found.
        * tests/upvar.test:

1 files changed, 2 insertions, 10 deletions

diff --git a/generic/tclProc.c b/generic/tclProc.c
index c09b7df..cd85e73 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclProc.c,v 1.132 2007/09/07 18:01:36 msofer Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.133 2007/09/09 19:28:31 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -2549,7 +2549,7 @@ Tcl_ApplyObjCmd(
 {
     Interp *iPtr = (Interp *) interp;
     Proc *procPtr = NULL;
-    Tcl_Obj *lambdaPtr, *nsObjPtr, *errPtr;
+    Tcl_Obj *lambdaPtr, *nsObjPtr;
     int result, isRootEnsemble;
     Command cmd;
     Tcl_Namespace *nsPtr;
@@ -2627,14 +2627,6 @@ Tcl_ApplyObjCmd(
 	return result;
     }
 
-    if (nsPtr == NULL) {
-	TclNewLiteralStringObj(errPtr, "cannot find namespace \"");
-	Tcl_AppendObjToObj(errPtr, nsObjPtr);
-	Tcl_AppendToObj(errPtr, "\"", -1);
-	Tcl_SetObjResult(interp, errPtr);
-	return TCL_ERROR;
-    }
-
     cmd.nsPtr = (Namespace *) nsPtr;
 
     isRootEnsemble = (iPtr->ensembleRewrite.sourceObjs == NULL);