(define icr:destroy-zone
(lambda (zone)
(if (equal? *impc:zone* zone)
(set! *impc:zone* (sys:default-mzone)))
(if (equal? zone (sys:default-mzone))
(log-info "You are not allowed to destroy the default zone")
(sys:destrop-mzone zone))))