SatPEP simulation problem

I just checked the tcl example sctipt given in the site
http://www.netmode.ntua.gr/~dbelen/SaTPEP/
(inside the file http://www.netmode.ntua.gr/~dbelen/SaTPEP/satpep-ns-2.27.tar)

The script is getting the loss as a parameter but it is using the parameter to create a folder with that name for redirecting outputs.

The references to that parameter were commented out and the script is using some other loss parameters irrespective of the given input.

###############################################################################

# Loss configuration



set loss [new ErrorModel/List/Seqno]

$loss droplist 150 155 180

$loss flowid 0

$ln_for insert-linkloss $loss



#set loss [new ErrorModel]

#$loss set rate_ $pk_loss_rate

#$loss unit pkt

#$loss ranvar [new RandomVariable/Uniform]

#$loss drop-target [new Agent/Null]

#

#$ln_for insert-linkloss $loss



###############################################################################