diff --git a/src/Ganeti/Utils.hs b/src/Ganeti/Utils.hs
index e92a70d6842d368e277be07366af12c57779bc00..419782645ceba62d3dad20ac11d1902f673fd89f 100644
--- a/src/Ganeti/Utils.hs
+++ b/src/Ganeti/Utils.hs
@@ -2,7 +2,7 @@
 
 {-
 
-Copyright (C) 2009, 2010, 2011, 2012 Google Inc.
+Copyright (C) 2009, 2010, 2011, 2012, 2013 Google Inc.
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -267,7 +267,7 @@ we only need one extra step of dropping the key at the end.
 
 -}
 niceSort :: [String] -> [String]
-niceSort = map snd . sort . map (\s -> (fst $ extractKey [] s, s))
+niceSort = niceSortKey id
 
 -- | Key-version of 'niceSort'. We use 'sortBy' and @compare `on` fst@
 -- since we don't want to add an ordering constraint on the /a/ type,