list.flatten fails to preserve names

[renkun-ken]

> list.flatten(list(a=c(1,2,3),b=list(x=1,y=list(z=1,z2=2))))
Error in names(y) <- names(items) : 
  'names' attribute [6] must be the same length as the vector [4]