Limit[D[Power[(w-1)/(Power[e,(1/w-1)Power[e,1/w-1]]-1),1],{w,0}],w->1]