diff --git a/changelog.txt b/changelog.txt
index 38f247702..79267f73c 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -61,6 +61,7 @@ Template for new versions:
 - `gui/create-item`: allow creation of adamantine thread, wool, and yarn
 - `gui/notify`: the notification panel no longer responds to the Enter key so Enter key is passed through to the vanilla UI
 - `clear-smoke`: properly tag smoke flows for garbage collection to avoid memory leak
+- `warn-stranded`: don't warn for babies carried by mothers who happen to be gathering fruit from trees
 
 ## Misc Improvements
 - `item`: option for ignoring uncollected spider webs when you search for "silk"
diff --git a/warn-stranded.lua b/warn-stranded.lua
index d1b1d00e7..239c4b335 100644
--- a/warn-stranded.lua
+++ b/warn-stranded.lua
@@ -63,6 +63,7 @@ function getStrandedGroups()
     local unitsByWalkGroup, ignoredUnitsByWalkGroup = {}, {}
 
     for _, unit in ipairs(dfhack.units.getCitizens(true)) do
+        if unit.relationship_ids.RiderMount ~= -1 then goto skip end
         local unitPos = xyz2pos(dfhack.units.getPosition(unit))
         local walkGroup = getWalkGroup(unitPos)