Weird parsing of imbricated quotes.

[Niols]

When parsing:

${foo:-"bar"}

Morbig gives:

[
    "Word",
    "${foo:-\"bar\"}",
    [
        [
            "WordVariable",
            [
                "VariableAtom",
                "foo",
                [
                    "UseDefaultValues",
                    ":-",
                    [
                        "Word",
                        "\"bar\"",
                        [
                            [
                                "WordDoubleQuoted",
                                [
                                    "Word",
                                    "\"bar\"",
                                    [
                                        [
                                            "WordDoubleQuoted",
                                            [
						"Word",
						"bar",
						[ [ "WordLiteral", "bar" ] ]
                                            ]
                                        ]
                                    ]
                                ]
                            ]
                        ]
                    ]
                ]
            ]
        ]
    ]
]

where we have WordDoubleQuoted inside WordDoubleQuoted. I thought it wasn't supposed to happen. Is it?