diff --git a/Ganeti/HTools/IAlloc.hs b/Ganeti/HTools/IAlloc.hs
index c87e167005fbaf3116e8d0c89a7c9dadd26b4113..3083578878e8e40bebfa2c2eaeddbbda5ec76bf1 100644
--- a/Ganeti/HTools/IAlloc.hs
+++ b/Ganeti/HTools/IAlloc.hs
@@ -136,7 +136,8 @@ parseData body = do
         "multi-evacuate" ->
             do
               ex_names <- fromObj "evac_nodes" request
-              ex_nodes <- mapM (Container.findByName map_n) ex_names
+              let ex_names' = map (stripSuffix $ length csf) ex_names
+              ex_nodes <- mapM (Container.findByName map_n) ex_names'
               let ex_ndx = map Node.idx ex_nodes
               return $ Evacuate ex_ndx
         other -> fail ("Invalid request type '" ++ other ++ "'")