[ns] Sean Murphy diffserv examples ?

[AHMED Toufik <tahmed@ens.uvsq.fr>]

Hi,
first : when I'm trying to run Sean Murphy examples : dsexample1.tcl and
dsexample1.tcl  I got this error :

> ../../ns dsexample1.tcl
Creating topology...
Creating agents...
Creating sources...
Creating conditioners...
can't read "addr_": no such variable
    while executing
"subst $[subst $var]"
    (procedure "_o306" line 5)
    (Object next line 5)
    invoked from within
"_o306 next addr_"
    ("eval" body line 1)
    invoked from within
"eval $self next $args"
    (procedure "_o306" line 18)
    (Agent set line 18)
    invoked from within
"$source_agent($i) set addr_"
    (procedure "create_conditioners" line 16)
    invoked from within
"create_conditioners"
    (file "dsexample1.tcl" line 263)

What wrong with this examples.
second : I would like to ask anyone experienced in  Sean Murphy
diffserv  for some examples ?

best regards !

AHMED Toufik
PRiSM labs