###-*- R -*- Macintosh Specific ----
.First <- function() if(interactive()) macintosh()