diff --git a/Command/FuzzTest.hs b/Command/FuzzTest.hs
index 642f07b51d..8efbda8593 100644
--- a/Command/FuzzTest.hs
+++ b/Command/FuzzTest.hs
@@ -190,7 +190,7 @@ runFuzzAction (FuzzPause d) = randomDelay d
 
 genFuzzAction :: Annex FuzzAction
 genFuzzAction = do
-	tmpl <- liftIO $ Prelude.head <$> sample' (arbitrary :: Gen FuzzAction)
+	tmpl <- liftIO $ generate (arbitrary :: Gen FuzzAction)
 	-- Fix up template action to make sense in the current repo tree.
 	case tmpl of
 		FuzzAdd _ -> do