1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
index 405ce64..42c6ce2 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -148,7 +148,7 @@ svdProp4 m' = m |~| u <> real (diag s) <> trans v
            && orthonormal u && orthonormal v
            && (dim s == r || r == 0 && dim s == 1)
     where (u,s,v) = compactSVD m
-          m = m' <-> m'
+          m = fromBlocks [[m'],[m']]
           r = rank m'
 
 svdProp5a m = and (map (s1|~|) [s2,s3,s4,s5,s6]) where