diff --git a/src/Ganeti/HTools/Loader.hs b/src/Ganeti/HTools/Loader.hs
index 6be17c1efe67ee2affa7a57aeccd79e0e2ed5af6..30f97bff9f001b7ee15fafe4f7be00590bd6695d 100644
--- a/src/Ganeti/HTools/Loader.hs
+++ b/src/Ganeti/HTools/Loader.hs
@@ -42,6 +42,7 @@ module Ganeti.HTools.Loader
 
 import Data.List
 import qualified Data.Map as M
+import Data.Maybe
 import Text.Printf (printf)
 
 import qualified Ganeti.HTools.Container as Container
@@ -185,9 +186,7 @@ longestDomain (x:xs) =
 
 -- | Extracts the exclusion tags from the cluster configuration.
 extractExTags :: [String] -> [String]
-extractExTags =
-  map (drop (length exTagsPrefix)) .
-  filter (isPrefixOf exTagsPrefix)
+extractExTags = filter (not . null) . mapMaybe (chompPrefix exTagsPrefix)
 
 -- | Extracts the common suffix from node\/instance names.
 commonSuffix :: Node.List -> Instance.List -> String