1 files changed, 1 insertions, 0 deletions

diff --git a/packages/base/src/Numeric/LinearAlgebra/Util.hs b/packages/base/src/Numeric/LinearAlgebra/Util.hs
index 60079e7..f09bdb5 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Util.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Util.hs
@@ -485,5 +485,6 @@ test = (and ok, print ok)
     md = fromInt m      :: Matrix Double
     ok = [ tr m <> m == toInt (tr md <> md)
          , m <> tr m == toInt (md <> tr md)
+         , m ?? (Take 2, Take 3) == remap (asColumn (range 2)) (asRow (range 3)) m
          ]