-- This simply stuffs all items of the current selection, using the same
-- location and without deleting the original item; aliases are not resolved,
-- i.e. the alias file is archived, not the item it points to.
-- Markus Frischknecht July 1999
-- mailto:mfrischknecht@access.ch

try
	
	tell application "Finder"
		
		
		set selobject to selection
		
		repeat with i from 1 to count selobject
			set item i of selobject to (item i of selobject) as alias -- coerce each item into alias
		end repeat
		
		-- now stuff all files/folders
		set archive to Stuff selobject without deleting originals, add to existing and resolving aliases
		
		-- if desired show resulting archive; uncomment if you want this feature
		-- reveal archive
				
	end tell
	
on error
	-- beep
end try