(progv *zone-config* (mapcar #'symbol-value *zone-config*)
(load f :verbose nil :print nil :if-does-not-exist :error)
(delete-package *package*))))
- (zone-save opt-zones :format opt-format)))
+ (zone-save opt-zones :format opt-format)
+ t))
(with-unix-error-reporting ()
(unless (option-parse-try
(do-options ()