X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zones/blobdiff_plain/b420e5ee9d13865f53b73119e4038884bbb57a63..c0430253dd8fe7e0746bf8ef30a4f1272521baff:/hosts.lisp

diff --git a/hosts.lisp b/hosts.lisp
index b7fc5e5..b2beaae 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -106,11 +106,11 @@ (defhost www-cache.any (any 4))
 ;;; Host switch.
 
 (preferred-subnet-case
-  (dmz
-   (defhost radius radius.dmz)
-   (defhost vampire vampire.dmz))
-  (t
+  ((unsafe colo)
    (defhost radius radius.unsafe)
-   (defhost vampire vampire.unsafe)))
+   (defhost vampire vampire.unsafe))
+  (t
+   (defhost radius radius.dmz)
+   (defhost vampire vampire.dmz)))
 
 ;;;----- That's all, folks --------------------------------------------------