file link error

# file link errors with 'could not create new link "./td/sf": target "./td/f1" doesn't exist'

puts stderr [package require fileutil]
file mkdir ./td; # make a test directory

# create a file and symlink to it
set fd [open ./td/f1 w]; puts $fd content; close $fd; file link -symbolic ./td/sf ./td/f1

# create a dir and symlink to it
file mkdir ./td/td1; file link -symbolic ./td/sl ./td/td1/

puts stderr [fileutil::find ./td]