Lock files droplet, how to make work in 10.6 ?

Scripting Forums AppleScript | Mac OS X
,
#1

I downloaded this script from http://scriptbuilders.net/files/lockunlockfiles1.0.html but when I try to run it in 10.6 I get an error dialog telling me…

File alias (path to file) of <> wasn’t found.

-- This droplet processes both files or folders of files dropped onto the applet
on open droppedItems
	repeat with index from 1 to the count of droppedItems
		set currentItem to (item index of droppedItems)
		set the currentItemInfo to info for currentItem
		if folder of the currentItemInfo is true then
			ProcessFolder(currentItem)
		else if (alias of the currentItemInfo is false) then
			ProcessFile(currentItem)
		end if
	end repeat
end open

-- this sub-routine processes folders
on ProcessFolder(folderToProcess)
	set itemsToProcess to list folder folderToProcess without invisibles
	repeat with index from 1 to the count of itemsToProcess
		set currentItem to alias ((folderToProcess as text) & (item index of itemsToProcess))
		set the currentItemInfo to info for currentItem
		if folder of the currentItemInfo is true then
			ProcessFolder(currentItem)
		else if (alias of the currentItemInfo is false) then
			ProcessFile(currentItem)
		end if
	end repeat
end ProcessFolder

-- this sub-routine processes files
on ProcessFile(fileToProcess)
	tell application "Finder"
		set locked of fileToProcess to true
	end tell
end ProcessFile

Can someone advise how this script needs to change to work in 10.6?

#2

I debugged this with Script Debugger and the problem line is:

		set currentItem to alias ((folderToProcess as text) & (item index of itemsToProcess))

I don’t know how this needs to change. Thank you in advance for help.