Intégration leach sous ns2.34

Bonjour, je travail sous ns2.34 et je souhaite intégre le protocole leach dedans mais depuis un bon moment je rencontre des problèmes d'energy. voici l'erreur que j'ai sur leach.err après exécution du commande ./test ou ./leach_test:
invalid command name "Resource/Energy"
while executing
"Resource/Energy instproc setParams {args} {
$self instvar energyLevel_ alarmLevel_
set energyLevel_ [lindex $args 0]
set alarmLevel_ [lind..."
(file "/home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl" line 11)
invoked from within
"source.orig /home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig [list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source /home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl"
(file "/home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/uAMPS/sims/uamps.tcl" line 24)
invoked from within
"source.orig /home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/uAMPS/sims/uamps.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig [list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source /home/wsn/ns2/ns-allinone-2.34/ns-2.34/mit/uAMPS/sims/uamps.tcl"
(file "/home/wsn/ns2/ns-allinone-2.34/ns-2.34/tcl/mobility/leach.tcl" line 20)
invoked from within
"source.orig /home/wsn/ns2/ns-allinone-2.34/ns-2.34/tcl/mobility/leach.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig [list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source /home/wsn/ns2/ns-allinone-2.34/ns-2.34/tcl/mobility/$opt(rp).tcl"
(file "tcl/ex/wireless.tcl" line 187)

s'il vous plait aidez-moi à résoudre mon problème