corrected a bug pointed out by Georges Gonthier.