system <- function(call, intern=FALSE) 
	.Internal(system(call,intern))

