WScript.Shell.Popup stops working if CreateShortcut has been used

/* wscript.exe c:\thisfile.js */

var FS=WScript.CreateObject("Scripting.FileSystemObject");

var WS=WScript.CreateObject("WScript.Shell");

function Lnk(d,n,t)

{

    lnk = WS.CreateShortcut(FS.BuildPath(d, n));

    lnk.TargetPath = t;

    lnk.Save(); /* Comment out this line to fix the bug */

}

var csmp = WS.SpecialFolders("AllUsersPrograms");

Lnk(FS.GetParentFolderName(csmp), "Test SM.lnk", "calc.exe");

WS.Popup("world",2,"hello")