oops, double allocate

thanks Lovell
Merge branch '7.40'