SeExpr curve and ccurve color bug

Probably an SeExpr bug… however this workaround seems to work:

$pat = noise(10*$u,10*$v);
$out = ccurve($pat,
0.0, [$color1[0],$color1[1],$color1[2]], 4,
0.5, [0.5, 0.0, 0.0], 4);
$out

Can you confirm?