Create clipping path from selection

Question

I'm driving crazy!
Why this script does not work?
tell application "Adobe Photoshop CS3"
tell current document
make work path selection
make clipping path (path item 1) flatness 0.5
end tell
end tell
The work path is created with no prob.
But the clipping one returns this error:
"The command »Define« is not avalaible"
What's wrong?

Answer 1

I've found the solution!
You have to name the work path to memorize it in order to be able to create the clipping path.
This is the code:
tell application "Adobe Photoshop CS3"
tell current document
make work path selection
set name of path item 1 to "Détourage"
make clipping path path item "Détourage" flatness 0.5
end tell
end tell