error in running wireless-newnode-energy.tcl

[Vishal Garg <vishal@netearth.iitd.ernet.in>]

Dear ns users,

While running "wireless-newnode-energy.tcl" in the examples of 
ns-2.1b6-current (latest snapshot) I am  getting the following error:

 (_o16 cmd line 1)
    invoked from within
"_o16 cmd random-motion 0"
    invoked from within
"catch "$self cmd $args" ret"
    (procedure "_o16" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$node_($i) random-motion 0             "
    invoked from within
"if { [string compare $opt(rp) "dsr"] == 0} { 
        for {set i 0} {$i < $opt(nn) } {incr i} {
                dsr-create-mobile-node $i
        }
} elseif { [string compare $op..."
    (file "wireless-newnode-energy.tcl" line 230)
 
Please tell me how to remove this  error.

Regards

Vishal