query {} |> Seq.toList raises exception if the query returns empty seq

[vasily-kirichenko]

query {
    for x in db.``[dbo].[test]`` do
    select x
} |> Seq.toList

If [dbo].[test] is empty, then the following exception raises:

Parameter name: source
    at Microsoft.FSharp.Collections.SeqModule.Head[T](IEnumerable`1 source)
    at FSharp.Data.Sql.QueryExpression.QueryExpressionTransformer.convertExpression(SqlExp exp, List`1 entityIndex, IDbConnection con, ISqlProvider provider)
    at FSharp.Data.Sql.Runtime.QueryImplementation.executeQuery(ISqlDataContext dc, ISqlProvider provider, SqlExp sqlExp, List`1 ti)
    at FSharp.Data.Sql.Runtime.QueryImplementation.SqlQueryable`1.System-Collections-Generic-IEnumerable`1-GetEnumerator()
    at Microsoft.FSharp.Collections.SeqModule.ToList[T](IEnumerable`1 source)

[pezipink]

ouch, this looks like a regression... I will have a look, thanks. Really need to get those tests sorted out!

Edit - is this the current code or the package?