empty name array setting problem in namespace

OriginalBugID: 3557 Bug
Version: 8.2.2
SubmitDate: '1999-11-11'
LastModified: '1999-11-11'
Severity: LOW
Status: Closed
Submitter: techsupp
ChangedBy: hobbs
RelatedBugIDs: 3339
OS: Linux-Red Hat
OSVersion: redhat 6.1
Machine: Pentium PC
FixedDate: '2000-10-25'
ClosedDate: '1999-11-11'

Name:
Jean-Luc Fontaine

Extensions:
BLT 2.4m, Tktable 2.5, latest stooop, scwoop and tkpiechart

Comments:
I tried to find the problem in the source, but I stopped since it is after the procedure n::p is compiled.
Let me know if you want me to investigate further, as I would really like this problem solved.

ReproducibleScript:
namespace eval n {
proc p {} {
variable {}
set (a) 0
set (b) 1
}
p
parray {}
}

ObservedBehavior:
output:
(a) = 0

DesiredBehavior:
output:
(a) = 0
(b) = 1