diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index 2b467e5aab..8ef4484353 100644
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -224,7 +224,7 @@ IN: math.matrices
 GENERIC: square-rows ( object -- matrix )
 M: integer square-rows iota square-rows ;
 M: sequence square-rows
-    >array [ length ] keep [ clone ] curry { } replicate-as ;
+    [ length ] keep >array '[ _ clone ] { } replicate-as ;
 
 GENERIC: square-cols ( object -- matrix )
 M: integer square-cols iota square-cols ;