diff --git a/Ganeti/HTools/Rapi.hs b/Ganeti/HTools/Rapi.hs
index 1d33214b56b60b22a46861395f045455636ea113..64c6a23b3ebb9c0e039331894743c791f839b971 100644
--- a/Ganeti/HTools/Rapi.hs
+++ b/Ganeti/HTools/Rapi.hs
@@ -131,7 +131,8 @@ parseGroup a = do
   name <- tryFromObj "Parsing new group" a "name"
   let extract s = tryFromObj ("Group '" ++ name ++ "'") a s
   uuid <- extract "uuid"
-  return (uuid, Group.create name uuid AllocPreferred)
+  apol <- extract "alloc_policy"
+  return (uuid, Group.create name uuid apol)
 
 -- | Loads the raw cluster data from an URL.
 readData :: String -- ^ Cluster or URL to use as source