diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs
index 23dabcf..ed851d9 100644
--- a/src/Propellor/Property/Debootstrap.hs
+++ b/src/Propellor/Property/Debootstrap.hs
@@ -45,9 +45,9 @@ built target system@(System _ arch) extraparams =
 			Nothing -> errorMessage $ "don't know how to debootstrap " ++ show system
 			Just s -> pure s
 		let params = extraparams ++
-			[ Param suite
+			[ Param $ "--arch=" ++ arch
+			, Param suite
 			, Param target
-			, Param $ "--arch=" ++ arch
 			]
 		cmd <- fromMaybe "debootstrap" <$> programPath
 		ifM (boolSystem cmd params)