diff --git a/Command/Init.hs b/Command/Init.hs
index e2a6eb7b03..69cdc8e8a4 100644
--- a/Command/Init.hs
+++ b/Command/Init.hs
@@ -30,6 +30,5 @@ start ws = do
 perform :: String -> CommandPerform
 perform description = do
 	initialize
-	u <- getUUID
-	describeUUID u description
+	getUUID >>= describeUUID description
 	next $ return True