clip to keep coordinate system?

dear R wizards:

plot( 1, 1, ylim=(2,10), xlim=(2,10), type="n");
rect( -1, -1, 12, 12, col=gray(0.99) );

unfortunately wipes out the border axes around the plot.  how do I keep 
this?

regards,

/ivo