1 files changed, 5 insertions, 1 deletions

diff --git a/packages/base/src/Data/Packed/Numeric.hs b/packages/base/src/Data/Packed/Numeric.hs
index 80f1718..7d77b19 100644
--- a/packages/base/src/Data/Packed/Numeric.hs
+++ b/packages/base/src/Data/Packed/Numeric.hs
@@ -68,6 +68,7 @@ module Data.Packed.Numeric (
 ) where
 
 import Data.Packed
+import Data.Packed.Internal(conformMs)
 import Data.Packed.Internal.Numeric
 import Data.Complex
 import Numeric.LinearAlgebra.Algorithms(Field,linearSolveSVD)
@@ -318,6 +319,9 @@ cselect = cselect'
 remap :: Element t => Matrix I -> Matrix I -> Matrix t -> Matrix t
 remap i j m
     | minElement i >= 0 && maxElement i < fromIntegral (rows m) &&
-      minElement j >= 0 && maxElement j < fromIntegral (cols m) = remapM i j m
+      minElement j >= 0 && maxElement j < fromIntegral (cols m) = remapM i' j' m
     | otherwise = error $ "out of range index in rmap"
+  where
+    [i',j'] = conformMs [i,j]
+