content: on ImportActionForVersions(imageSel)
  	tell application "Aperture"
  		repeat with i from 1 to count of imageSel
  			tell library 1
  				tell item i of imageSel
  					set cameraModel to value of EXIF tag "Model"
  					
  					-- mobile phones might not have a LensModel EXIF tag
  					try
  						set lensModel to value of EXIF tag "LensModel"
  					on error
  						set lensModel to ""
  					end try
  					
  					make new keyword with properties {name:cameraModel}
  					make new keyword with properties {name:lensModel, parents:{cameraModel}}
  				end tell
  			end tell
  		end repeat
  	end tell
  end ImportActionForVersions