[ns] getting an error compiling

[asimon@esoc.esa.de]

Hi again,
I am sorry, but I have another problem. I have looked into the ns manual and
I have set the ds RED parameters, but I get an error, and I don't understand
why. There is something wrong with  the function addPolicyEntry. Could you
please help me understanding what's wrong.
Thanks a lot.
Audrey

Here is what I have written:
...
$ns simplex-link $n(1) $n(0) 20Mb 10ms dsRED/edge
$ns simplex-link $n(0) $n(1) 20Mb 10ms dsRED/core
...
set qec(1) [[$ns link $n(0) $n(1)] queue]                 //n(0) is the core
node and n(1) is the Edge
...
$qec(1) meanPktSize 100
$qec(1) set numQueues_ 1
$qec(0) setNumPrec 2
$qec(1) addPolicyEntry [$n(1) id] [$n(0) id] TockenBucket 10 $cir0 $cbs0
$qec(1) addPolicerEntry TockenBucket 10 11
$qec(1) addPHBEntry 10 0 0
$qec(1) configQ 0 1 10 20 0.10
...
and when compiling, I get the message:

(_o44 cmd line 1)
    invoked from within
"_o44 cmd addPolicyEntry 1 0 TockenBucket 10 2000000 10000"
    invoked from within
"catch "$self cmd $args" ret"
    (procedure "_o44" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$qec($i) addPolicyEntry [$n(1) id] [$n(0) id] TockenBucket 10 $cir0 $cbs0"
    ("for" body line 5)
    invoked from within
"for {set i 1} {$i < 4} {incr i} {
$qec($i) meanPktSize 100
$qec($i) set numQueues_ 1
$qec($i) setNumPrec 2
$qec($i) addPolicyEntry [$n(1) id] [$n(0) i..."
    (file "test.tcl" line 59)