regression fails to build; repeat-unfold

[Graham Percival]

With current cvs, make web-doc fails with the following:

[...]
Now processing: `lily-1563563486.ly'
Parsing...Backtrace:
 0* [unfold-repeats #]
 1* (let* (# # #) (if # #) (if # #) ...)
 2* (if (music? e) (ly-set-mus-property! music (quote element) ...))
 3  [ly-set-mus-property! # element ...
 4*  [unfold-repeats #]
 5   (let* (# # #) (if # #) (if # #) ...)
 6*  (if (pair? es) (ly-set-mus-property! music (quote elements) ...))
 7   [ly-set-mus-property! # elements ...
 8*   [map #<procedure unfold-repeats (music)> (# # #)]
 9*   [unfold-repeats #]
10*   (let* (# # #) (if # #) (if # #) ...)
11*   (if (equal? n "Repeated_music") (begin # # # ...))
12    (begin (if # #) (ly-set-mus-property! music # ...) ...)
13*   (if # #)
14    (shift-duration-log music (intlog2 (ly-get-mus-property music #)))

ERROR: In expression (shift-duration-log music (intlog2 #)):
ERROR: Wrong number of arguments to #<procedure shift-duration-log (music shift 
dot)>

Error command exited with value 512

Exiting ... 

Traceback (most recent call last):
  File "../../scripts/lilypond-book.py", line 1437, in ?
  File "../../scripts/lilypond-book.py", line 1336, in do_file
  File "../../scripts/lilypond-book.py", line 1113, in compile_all_files
  File "../../scripts/lilypond-book.py", line 1027, in system
  File "../../scripts/lilypond-book.py", line 564, in error
Exiting.
make[1]: *** [out-www/regression.texi] Error 1
make[1]: Leaving directory `/home/gperciva/lilypond/input/regression'
make: *** [web-doc] Error 2

----

I've tried "make clean" in input/ ; I've tried "make distclean" ; the
problem remains.  The problem file is
input/regression/repeat-unfold-all.ly , but I don't use \repeat very often
so I can't see anything wrong with the file.

HTH,
- Graham