try tell application "iPhoto" activate copy (my selected_images()) to these_images if these_images is false then  error "Please select the images to include in the summary." set the image_count to the count of these_images repeat with i from 1 to the image_count set this_photo to item i of these_images tell this_photo set the title to the comment end tell end repeat end tell on error error_message number error_number tell application "iPhoto" activate if the error_number is not -128 then display dialog error_message buttons {"OK"} default button 1 end if end tell end try on selected_images() tell application "iPhoto" try -- get selection set these_items to the selection -- check for single album selected if the class of item 1 of these_items is album then error -- return the list of selected photos return these_items on error return false end try end tell end selected_images