Voice combining with different rhythms

[James Hammons]

Ok, I'm truly mystified here...  I found no info in the FAQ, in the manual,
regression test, or anywhere else.

What I'm trying to do is set a measure with temporary split voices with
unmatching rhythms (with lily 1.3.88).  As you can see in measure five, lily
insists on combining the last two beats of the right hand even though they
have very different rhythms.  The method I use works fine elsewhere, as long
as the voices have a common time base (the commented out line below measure
5 is taken from another .ly file that splits the voices perfectly--as I
would expect here)...

So what am I doing wrong here?

-- Shamus

On a side note, what can I do to eliminate having to write "\times 2/3 {foo
bar baz}" for each triplet?  This piece has them throughout the entire
movement!

----------- moonlight1.ly ------------------------------------

\include "english.ly";
\include "paper16.ly";  % Slightly smaller than the 20 default

\header
{
  title = "Sonata Una Quasi Fantasia";
  subtitle = "aka 'Moonlight': First movement";
  composer = "L.V. Beethoven";
}

\score
{
  \context PianoStaff
  <
    \context Staff = RH
    {
      \notes \relative c'
      {
        \time 4/4;
        \key cs \minor;
        \clef "G";

        \times 2/3 {gs8-1 cs-2 e-4} \times 2/3 {gs, cs e}
        \times 2/3 {gs, cs e} \times 2/3 {gs, cs e} |
        \times 2/3 {gs, cs e} \times 2/3 {gs, cs e}
        \times 2/3 {gs, cs e} \times 2/3 {gs, cs e} |
        \times 2/3 {a,-1 cs-2 e-4} \times 2/3 {a, cs e}
        \times 2/3 {a, d fs} \times 2/3 {a, d fs} |
        \times 2/3 {gs, bs fs'} \times 2/3 {gs, cs e}
        \times 2/3 {gs, cs ds} \times 2/3 {fs, bs ds} |

        \times 2/3 {e, gs cs} \times 2/3 {gs cs e}
        < \context voice = va {\stemdown \times 2/3 {gs, cs e} \times 2/3
{gs, cs e} \stemboth}
          \context voice = vb { r4 gs8. gs16 } > | % 5
%    <{\stemdown d'8 d'8 cs'8 b8 cs'2 \stemboth} \context Voice = v {r8 e'4.
e'4 g'4} > | % 13


        \bar "|.";
      }
    }
    \context Staff = LH
    {
      \notes \relative c
      {
        \time 4/4;
        \key cs \minor;
        \clef "F";

        <cs1-\textscript "una corda" "italic" cs,> | <b b,> |
        <a2 a,> <fs fs,> | <gs gs,> <gs gs,> |
        <cs1 gs cs,> | <bs gs bs,> |
        <cs2 cs,> <fs, fs,> | <b b,> <b b,> |
        <e1 e,> | <e1 e,> |

        \bar "|.";
      }
    }
  >

  \paper { linewidth = 18.0 \cm; }
}