"Create a stream event of class @var{cl} with the given"
" mutable property list.")
{
- LY_ASSERT_TYPE (ly_is_symbol, cl, 1);
+ LY_ASSERT_TYPE (ly_is_pair, cl, 1);
/* should be scm_list_p, but scm_list_p is expensive. */
LY_ASSERT_TYPE (scm_is_pair, proplist, 2);