testlist <- list(ances = c(-2019288481L, 238801407L, 831797194L, -1614355852L,  -87446654L, -1722506176L, 1350754144L, -1944682477L, -1164282936L,  -700135417L, -637546120L, -977998656L, 2107064854L, -337226181L,  1748343797L, 1260062725L, -1233400180L, -1063873639L, -1788604070L,  419240598L, -1805865856L, 1107540907L, 945266820L, 1923647784L,  609727716L, -314081918L, -1399923260L, -1946723809L, 1409785750L,  173752642L, -1293826524L, -1974448722L, -1493069163L, 1225725941L,  -1644906200L, -334215360L, 468178469L, 269104928L, -114419581L,  2120560933L, 1740880560L, -757947025L, -966879310L, 1927279245L,  -959860216L, -518325030L, 1209294534L, 2056252385L, NA, 2016843070L,  -1808994041L, 199464145L, -1404577395L, 1641375913L, -356094108L,  1431979432L, 14077560L, 207861664L), desc = c(1454305623L, 579219890L,  785927610L, 347730583L, -4752613L, -452452136L, 76161371L, 940815037L,  -763277835L, 142518070L, 1475670123L, -1377696851L, -1702967169L,  -2014816373L, 1920591531L, -1936168866L, 448090914L, 888821899L,  -297142628L, NA, 2014397695L, -107181460L))
result <- do.call(phylobase:::tipsSafe,testlist)
str(result)