direct sum operation ignores degrees

[DanGrayson]

Macaulay2, version 1.15
--loading configuration for package "FourTiTwo" from file /Users/dan/Library/Application Support/Macaulay2/init-FourTiTwo.m2
--loading configuration for package "Topcom" from file /Users/dan/Library/Application Support/Macaulay2/init-Topcom.m2
with packages: ConwayPolynomials, Elimination, IntegralClosure, InverseSystems, LLLBases, PrimaryDecomposition, ReesAlgebra, TangentCone, Truncations

i1 : R = QQ[x]

o1 = R

o1 : PolynomialRing

i2 : B = map(R^1, R^1,x, Degree =>{1})

o2 = | x |

             1       1
o2 : Matrix R  <--- R

i3 : isHomogeneous B

o3 = true

i4 : isHomogeneous (B++B)

o4 = false