Automatic beam problem

[Daniel Raufison]

Hello,

The automatic beam placing does not work, as I expect it. Please have a 
look at the last line of this score:

https://github.com/broepi/broepi-piano-scores/blob/master/Centurion.pdf?raw=true

This song is in 4/4. In bar 9 and 10 the beams are drawn over a half 
group but I want the beams connecting at most a group forming a quarter 
(for a better view).

Shouldn't the following two statements do what I want? Unforunatley, it 
does not work.

\set Timing.baseMoment = #(ly:make-moment 1 4)
\set Timing.beatStructure = #'(1 1 1 1)

The source code for the above score is here: 
https://github.com/broepi/broepi-piano-scores/blob/master/Centurion.ly

What did I miss?

Thank you and musical regards ;)
Daniel