diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs
index 20ccc4cf4b8ed9443d66ce80fba28800aa7b017d..ffc7ec521bb7304268e0bb9c42ebcd1f8a08b9ee 100644
--- a/src/Ganeti/Query/Server.hs
+++ b/src/Ganeti/Query/Server.hs
@@ -158,12 +158,10 @@ handleCall cdata QueryClusterInfo =
 handleCall cfg (QueryTags kind name) = do
   let tags = case kind of
                TagKindCluster  -> Ok . clusterTags $ configCluster cfg
-               TagKindGroup    -> groupTags <$> Config.getGroup    cfg name
-               TagKindNode     -> nodeTags  <$> Config.getNode     cfg name
-               TagKindInstance -> instTags  <$> Config.getInstance cfg name
-               TagKindNetwork  -> Bad $ OpPrereqError
-                                        "Network tag is not allowed"
-                                        ECodeInval
+               TagKindGroup    -> groupTags   <$> Config.getGroup    cfg name
+               TagKindNode     -> nodeTags    <$> Config.getNode     cfg name
+               TagKindInstance -> instTags    <$> Config.getInstance cfg name
+               TagKindNetwork  -> networkTags <$> Config.getNetwork  cfg name
   return (J.showJSON <$> tags)
 
 handleCall cfg (Query qkind qfields qfilter) = do