(define icr:new-zone (lambda args (if (null? args) (sys:create-mzone *impc:default-zone-size*) (sys:create-mzone (car args)))))