Gradient rendering bug

[Petri]

With my somewhat unusual gradients there is a strange rendering bug. They are supposed to be single colour (thanks to Matt Panzer!), but occasionally get an odd colour band in one end. Like this:

The gradients in question are created with Vectorscript like this:

gradient := CREATEGRADIENT('TVT 506X');  SETGRADIENTDATA(gradient, segmentIndex, 1, 0.5, 246, 227, 195);

Resetting the gradient like this does not help:

PROCEDURE ResetGradient;

VAR
obHd : HANDLE; 

BEGIN 
obHd := FSACTLAYER;
SETFPAT(obHd, GETFPAT(obHd));
END;

RUN(ResetGradient);

Bugsubmitted, but if someone has any ideas, I'd really welcome them.