lattice::xyplot axis padding with fontfamily="mono"

Hello,

Say I have a predictor taking a very wide value:

   Data <- 
data.frame(pred="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa",resp=1)

   print(xyplot(pred~resp, data=Data)) # enough y-axis padding to 
accommodate the wide label

   print(xyplot(pred~resp, data=Data,scales=list(fontfamily="mono"))) # 
not enough padding

What's the recommended way to have enough padding allocated?

Thank you
Ben