New file (function extracted from ln.c).