Tie not working as expected

[Steve Carlock]

New Lilypond user here.  The following code is not working as I expect:

\version "2.24.0"
\language "english"

\score {
  <<
  \new Staff {
    \key d \major
    \time 4/4
    \relative c' {
      <d~ a'~>1 | <d a'>1 | g~1 | g2 <fs a>2 |
    }
  }
  >>
  \layout { }
}


I expect to see 4 measures with ties between measures 1 and 2, and then 3
and 4.  Instead I am seeing 5 measures with an extra whole note in measure
4 tied to measure 3.  (Image attached).

What am I doing wrong?

Version info:
LilyPond 2.24.0 (running Guile 2.2)
Frescobaldi Version 3.0.0
Linux Mint 20.3 (in a virtual machine if it matters).

Thanks!