Ignore boring files.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 83ad3b9..e83aa75 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1017,8 +1017,9 @@ zones."
        (unless zz
          (error "Unknown zone `~A'." z))
        (let ((stream (safely-open-output-stream safe
-                                                (string-downcase
-                                                 (stringify z)))))
+                                                (format nil
+                                                        "~(~A~).zone"
+                                                        z))))
          (zone-write zz stream))))))
 
 ;;;----- That's all, folks --------------------------------------------------