diff --git a/src/Dodge/Room/Tutorial.hs b/src/Dodge/Room/Tutorial.hs
index fbfa898bd..a4cf15224 100644
--- a/src/Dodge/Room/Tutorial.hs
+++ b/src/Dodge/Room/Tutorial.hs
@@ -51,7 +51,7 @@ tutAnoTree = do
         , corDoor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tToBTree "sdr" . return . cleatOnward <$> 
-                (shuffleLinks =<< distributerRoom BulletAmmo 10000000)
+                (shuffleLinks =<< distributerRoom BulletAmmo 100)
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
 --        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []
diff --git a/src/Dodge/WorldEffect.hs b/src/Dodge/WorldEffect.hs
index c0fe40979..2709dda78 100644
--- a/src/Dodge/WorldEffect.hs
+++ b/src/Dodge/WorldEffect.hs
@@ -150,7 +150,7 @@ distributeAmmoToItem x itm = fromMaybe (x,0) $ do
     m <- magMax itm
     cur <- itm ^. itConsumables
     let d = m - cur
-        t = min x d
+        t = max 0 $ min x d
     return (x-t,t)
 
 resetTerminal :: TerminalStatus -> Terminal -> World -> World