tell application id "OGfl"
	set oWin to front window
	tell front document
		repeat with oCanvas in canvases
			repeat with oUnsharedLayer in (layers of oCanvas where class is not shared layer) as list
				-- harvest from unshared layers of each Canvas
				set lstID to id of graphics of oUnsharedLayer
				repeat with lngID in lstID
					set lngID to contents of lngID
					graphics of oUnsharedLayer
					
					-- WORKS 
					set oGraphic to graphic id lngID of oUnsharedLayer
					set selection of oWin to {oGraphic}
					selection of oWin
					{}
				end repeat
			end repeat
		end repeat
		
		set oCanvas to front canvas
		tell oCanvas
			repeat with oSharedLayer in (layers where class is shared layer) as list
				-- harvest each shared layer from just one of the canvases which parent it
				set lstID to id of graphics of oSharedLayer
				repeat with lngID in lstID
					set lngID to contents of lngID
					graphics of oSharedLayer
					
					-- BOTH FAIL -- BUG IN OG APPLESCRIPT ?
					set oGraphic to graphic id lngID of oSharedLayer
					set oGraphic to graphic id lngID of oCanvas
					
					set selection of oWin to {oGraphic}
					selection of oWin
					{}
				end repeat
			end repeat
		end tell
	end tell
end tell