Index: generic/tclParse.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclParse.c,v
retrieving revision 1.14
diff -r1.14 tclParse.c
863c863
< 	newObjv[0] = Tcl_NewStringObj("unknown", -1);
---
> 	newObjv[0] = Tcl_NewStringObj("::unknown", -1);
Index: tests/namespace.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/namespace.test,v
retrieving revision 1.14
diff -r1.14 namespace.test
1127a1128,1138
> test namespace-40.1 {Ignoring namespace proc "unknown"} {
>     rename unknown _unknown
>     proc unknown args {return global}
>     namespace eval ns {proc unknown args {return local}}
>     set l [list [namespace eval ns aaa bbb] [namespace eval ns aaa]]
>     rename unknown {}   
>     rename _unknown unknown
>     namespace delete ns
>     set l
> } {global global}
> 

