diff --git a/hbal.hs b/hbal.hs
index 47ad6b1126a16da1ab1c9405a10d45b45bbb8de5..408cdb8f9e18c245e912e12cd9b8f19d43064273 100644
--- a/hbal.hs
+++ b/hbal.hs
@@ -271,7 +271,8 @@ main = do
   let ngroups = Cluster.splitCluster nlf ilf
   when (length ngroups > 1 && isNothing (optGroup opts)) $ do
     hPutStrLn stderr "Found multiple node groups:"
-    mapM_ (hPutStrLn stderr . ("  " ++) . show . fst ) ngroups
+    mapM_ (hPutStrLn stderr . ("  " ++) . Group.name .
+           (flip Container.find gl) . fst) ngroups
     hPutStrLn stderr "Aborting."
     exitWith $ ExitFailure 1