diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs
index 5b4b262..260f3aa 100644
--- a/Propellor/Property/Dns.hs
+++ b/Propellor/Property/Dns.hs
@@ -133,8 +133,8 @@ rValue (TXT s) = [q] ++ filter (/= q) s ++ [q]
 --
 -- * Always be larger than the passed SerialNumber
 -- * Always be larger than the serial number in the Zone record.
-nextSerial :: Zone -> SerialNumber -> Zone
-nextSerial (Zone soa l) oldserial = Zone soa' l
+nextSerialNumber :: Zone -> SerialNumber -> Zone
+nextSerialNumber (Zone soa l) oldserial = Zone soa' l
   where
 	soa' = soa { sSerial = succ $ max (sSerial soa) oldserial }
 
@@ -152,7 +152,7 @@ nextSerial (Zone soa l) oldserial = Zone soa' l
 writeZoneFile :: Zone -> FilePath -> IO ()
 writeZoneFile z f = do
 	oldserial <- nextZoneFileSerialNumber f
-	let z'@(Zone soa' _) = nextSerial z oldserial
+	let z'@(Zone soa' _) = nextSerialNumber z oldserial
 	writeFile f (genZoneFile z')
 	writeFile (zoneSerialFile f) (show $ sSerial soa')
 
diff --git a/config-joey.hs b/config-joey.hs
index ac70fc3..b6d1664 100644
--- a/config-joey.hs
+++ b/config-joey.hs
@@ -225,7 +225,7 @@ cleanCloudAtCost = propertyList "cloudatcost cleanup"
 		]
 	]
 
-myDnsSecondary :: [Dns.Zone]
+myDnsSecondary :: [Dns.NamedConf]
 myDnsSecondary =
 	[ Dns.secondary "kitenet.net" master
 	, Dns.secondary "joeyh.name" master