<pre>on sortFieldItems fldName  --------------------------------------------------------------------------  if fldName is empty then    ask "Which field to sort items of"    if it is empty then exit sortFieldItems    put it into fldName  end if  --------------------------------------------------------------------------  toComputer  set itemDelimiter to ","  go to stack pile("SCRIPTS")  unmark all cds  mark cds where the number of words of fld fldName > 2  repeat with x = 1 to the number of marked cds    put the number of marked cds - x    go to marked cd x    put fld fldName into theItems    delete word 1 to 2 of theItems    put stripChars(space,theItems) into theItems    sort items of theItems    put fldName && ":" && theItems into fld fldName    set textStyle of word 1 of fld fldName to bold  end repeatend sortFieldItems</pre>