Unable to save embedded lists

[OfekShilon]

df <- data.frame(a=1:4, b=I(list(1,1:2,1:3,1:4)))
fst::write_fst(df, "~/tmp/t1")
# Error in fst::write_fst(df, "~/tmp/t1") : Unknown type found in column.