[ns] error using rtproto Manual

[Davide]

With that network topology

#####################################
#      Create Network Topology      #
#####################################
#
#                   S(0)
#  ME(0)--eNB0     /
#            \    /
#             \  /
#  ME(1)       R0---S(1)
#       \     /  \   .
#        \   /    \  .
#  ME(2)--eNB1     \ .
#    .   /          S(val(ser_num))
#    .  /
#  ME(val(ME_num))

using the manual routing protocol with that configuration

# Routing for Server nodes
for {set i 0} {$i < $val(ser_num)} {incr i} {
    [$S($i) get-module "Manual"] add-route-to-adj-node -default $R0
}

# Routing for Router node
$R0 add-route [$ME(0) id] $eNB0
for {set i 1} {$i <= $val(ME_num)} {incr i} {
        $R0 add-route [$ME($i) id] $eNB1
}
for {set i 0} {$i < $val(ser_num)} {incr i} {
    [$R0 get-module "Manual"] add-route-to-adj-node $S($i)
}

# Routing for eNodeB nodes
[$eNB0 get-module "Manual"] add-route-to-adj-node $ME(0)
for {set i 1} {$i <= $val(ME_num)} {incr i} {
        [$eNB1 get-module "Manual"] add-route-to-adj-node $ME($i)
}
for {set i 1} {$i < $val(ser_num)} {incr i} {
        $eNB0 add-route [$S($i) id] $R0
    $eNB1 add-route [$S($i) id] $R0
}

# Routing for MEs nodes
[$ME(0) get-module "Manual"] add-route-to-adj-node -default $eNB0
for {set i 1} {$i <= $val(ME_num)} {incr i} {
        [$ME($i) get-module "Manual"] add-route-to-adj-node -default $eNB1
}

i get this error:

ns: _o537 runq 0.001: wrong # args: should be "compute-all self class proc
node"
    (Agent/rtProto init line 1)
    invoked from within
"compute-all init "
    (Class create line 1)
    invoked from within
"Agent/rtProto/Manual create compute-all"
    ("eval" body line 1)
    invoked from within
"eval [list $self] create [list $m] $args         "
    (procedure "Agent/rtProto/Manual" line 5)
    (Class unknown line 5)
    invoked from within
"Agent/rtProto/$i compute-all"
    (procedure "_o11" line 4)
    (RouteLogic notify line 4)
    invoked from within
"[$ns_ get-routelogic] notify"
    (procedure "_o512" line 6)
    (Object next line 6)
    invoked from within
"$self next"
    (procedure "_o512" line 2)
    (rtModel/Manual notify line 2)
    invoked from within
"$obj notify"
    (procedure "_o537" line 12)
    (rtQueue runq line 12)
    invoked from within
"_o537 runq 0.001"

but i don't know wat's the problem
can you help me?

Davide