removeWithTag not working?

[Pedro Kröger]

Is this code supposed to work?

common =
\relative c''  {
    \tag #'part {c e g}
    \tag #'score {d f a} 
    e g b
}


\score {
  \simultaneous { 
    \new Staff {
      \common
    }
    \new Staff {
      \keepWithTag #'part \common
    }
    \new Staff {
      \removeWithTag #'part \common
    }
  }
}


the 1st staff should print all notes, the 2nd "c e g e g b" and the 3rd
"d f a e g b", but if I run it I get:

--------------------------------------------------------------------------
Backtrace:
In unknown file:
   ?:  0* [lilypond-main ("tag-filter")]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
 302:  1* (let* ((failed #) (handler #)) (for-each (lambda # # ...) files) ...)
 304:  2* [for-each #<procedure #f (f)> ("tag-filter")]
In /usr/share/guile/1.6/srfi/srfi-1.scm:
 663:  3  (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
    ...
 667:  4  (begin (f (car l)) (lp (cdr l)))
 668:  5* [#<procedure #f (f)> "tag-filter"]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
 306:  6* [catch ly-file-failed #<procedure #f ()> #<procedure #f (key arg)>]
In unknown file:
   ?:  7* [#<procedure #f ()>]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
 306:  8* [ly:parse-file "tag-filter"]
In unknown file:
   ?:  9* [#<procedure #f #> # # part ...]
In 
/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:
  26: 10* (music-filter (lambda (m) (let* (# #) (not res))))

/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:26:3:
 In expression (music-filter (lambda # #)):
/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:26:3:
 Wrong number of arguments to #<procedure music-filter (pred? music)>
--------------------------------------------------------------------------

The following code is working and yeld the result the previous one
should yeld, but in some ocasions removeWithTag is necessary:

\score {
  \simultaneous { 
    \new Staff {
      \common
    }
    \new Staff {
      \keepWithTag #'part \common
    }
    \new Staff {
      \keepWithTag #'score \common
    }
  }
}


Cheers,

Pedro