zone: Write output to DOMAIN.zone, rather than just DOMAIN.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 83ad3b9922bcba20ff3a0dec2f142f04f2b35915..e83aa754b85a75c649d740a4743a5372612f33dc 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1017,8 +1017,9 @@ (defun zone-save (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 --------------------------------------------------