Calls to constructor from inherited class leads to wrong indentation (breaks build)

[danyx23]

The text below leads to output like this (note the last two lines where a semicolon is inserted and the rest of the implementation wrongly indented):

namespace MBrace.FsPickler

[<AutoSerializable(false)>]
type internal CompositePickler<'T> =
    inherit Pickler<'T>
    private new(reader, writer, cloner, accepter, nested : Pickler option, 
                picklerInfo, ?cacheByRef, ?useWithSubtypes, ?skipHeaderWrite, 
                ?bypass, ?skipVisit, ?isCloneableOnly) =
        { inherit Pickler<'T>(); m_IsInitialized = true
                                 m_NestedPickler = nested

Test function:

let ``inherit call to base class constructor``() =
    formatSourceString false """namespace MBrace.FsPickler

[<AutoSerializable(false)>]
type internal CompositePickler<'T> =
    inherit Pickler<'T>

    private new(reader, writer, cloner, accepter, nested : Pickler option,
                picklerInfo, ?cacheByRef, ?useWithSubtypes, ?skipHeaderWrite,
                ?bypass, ?skipVisit, ?isCloneableOnly) =
        { inherit Pickler<'T>()
          m_IsInitialized = true
          m_NestedPickler = nested
          m_Writer = writer
          m_Reader = reader
          m_Cloner = cloner
          m_Accepter = accepter
          m_PicklerInfo = picklerInfo
          m_IsCacheByRef =
             match cacheByRef with
             | Some c -> c || base.IsRecursiveType
             | None -> base.Kind > Kind.String
          m_UseWithSubtypes =
             defaultArg useWithSubtypes false
          m_SkipHeaderWrite =
             defaultArg skipHeaderWrite false
          m_Bypass = defaultArg bypass false
          m_SkipVisit = defaultArg skipVisit false
          m_IsCloneableOnly =
             defaultArg isCloneableOnly false }
"""  config
    |> should equal """namespace MBrace.FsPickler

[<AutoSerializable(false)>]
type internal CompositePickler<'T> =
    inherit Pickler<'T>
    private new(reader, writer, cloner, accepter, nested : Pickler option,
                picklerInfo, ?cacheByRef, ?useWithSubtypes, ?skipHeaderWrite,
                ?bypass, ?skipVisit, ?isCloneableOnly) =
        { inherit Pickler<'T>()
          m_IsInitialized = true
          m_NestedPickler = nested
          m_Writer = writer
          m_Reader = reader
          m_Cloner = cloner
          m_Accepter = accepter
          m_PicklerInfo = picklerInfo
          m_IsCacheByRef =
              match cacheByRef with
              | Some c -> c || base.IsRecursiveType
              | None -> base.Kind > Kind.String
          m_UseWithSubtypes = defaultArg useWithSubtypes false
          m_SkipHeaderWrite = defaultArg skipHeaderWrite false
          m_Bypass = defaultArg bypass false
          m_SkipVisit = defaultArg skipVisit false
          m_IsCloneableOnly = defaultArg isCloneableOnly false }
"""