[REBOL] Parse Question: Why Doesn't This Work?

[timewarp]

  Okay, question is simple:

  Here's my rule:

headrule: [some [
        [thru "=== " copy head to newline
        (       append head " (FIRST LEVEL)"
                append full-contents head)      ]       |
        some
        [thru "--- " copy head to newline 
        (       append head " (SECOND LEVEL)"
                append full-contents head)      ]
        ]
]

  Here's the question.  Why does the above only find and append
to full-contents lines with "=== " and completely ignore lines
with "--- "?????????????????????????????????????????????

  Any help will be VASTLY appreciated.

  Cheerfulness,

                                        -----EAT