<pre>function thePath longStkName  put the itemDelimiter into oldDel  set itemDelimiter to ":"  delete last item of longStkName  delete char 1 to 7 of longStkName  set itemDelimiter to oldDel  return longStkNameend thePath</pre>