tell application "Aperture"
    set selectedImages to (get selection)
    if selectedImages is {} then
        error "Please select an image."
    else
        repeat with I from 1 to count of selectedImages
            tell library 1
                tell item I of selectedImages
                    set keywordName to (get value of IPTC tag "Keywords") as string
                    set contactName to (get value of IPTC tag "Byline") as string
                    set keywordName to keywordName & ", " & contactName
                    set value of (IPTC tag "Keywords") to keywordName
                end tell
            end tell
        end repeat
    end if
end tell