file link -relative

Hallo,

do we need a "file link -relative" option or do i missing something.
I would like to create a relative link like:
rene@digedag:~> touch a
rene@digedag:~> ln -s a b
rene@digedag:~> ls -l b
lrwxrwxrwx  1 rene site 1 2004-07-30 12:59 b -> a
but tcl gives me:
rene@digedag:~> tclsh
% file link -symbolic c a
a
% ls -l c
lrwxrwxrwx  1 rene site 12 2004-07-30 13:00 c -> /home/rene/a
The absolute path is then a problem on mounted directories.

A "file link -relative" option should only supress the call of
"Tcl_FSConvertToPathType()" in the "Tcl_FileObjCmd()" function.
Or is there a other tcl only solution?

Rene