fixed useProgram check current