<pre>function folderOfThisStack  put word 2 of the long name of this stack into folderPath  delete first char of folderPath  delete last char of folderPath  set the itemDelimiter to colon  delete last item of folderPath  return folderPath & ":"end folderOfThisStack</pre>