diff --git a/htools/Ganeti/Utils.hs b/htools/Ganeti/Utils.hs
index eed65dd59faca26c302a795964772fa4dd937090..8a73023f29f50d9c7b238016bff7a181a97d7270 100644
--- a/htools/Ganeti/Utils.hs
+++ b/htools/Ganeti/Utils.hs
@@ -285,5 +285,4 @@ rStripSpace = reverse . dropWhile isSpace . reverse
 newUUID :: IO String
 newUUID = do
   contents <- readFile C.randomUuidFile
-  let stripNewlines = reverse . dropWhile (=='\n') . reverse
-  return $! stripNewlines $ take 128 contents
+  return $! rStripSpace $ take 128 contents