diff --git a/Ganeti/HTools/IAlloc.hs b/Ganeti/HTools/IAlloc.hs
index b5c9ab6f9f0e0c88d60b0da150947cbf3d542ade..52eaf12516f1c805735c36312d4e82a9e7899368 100644
--- a/Ganeti/HTools/IAlloc.hs
+++ b/Ganeti/HTools/IAlloc.hs
@@ -134,7 +134,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 ++ "'")