on Rename(_Castlib, _Start, _End, _NewName)
  repeat with x = _Start to _End
    the itemdelimiter = "-"
    Changethis = (member x of castlib _Castlib).name.item[1]
    Keepthis = (member x of castlib _Castlib).name.item[2]
    Keepthisx = (member x of castlib _Castlib).name.item[3]
    (member x of castlib _Castlib).name = _NewName & "-" & Keepthis & "-" & Keepthisx
  end repeat
  put "Done.."
end