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