diff --git a/M2/Macaulay2/m2/exports.m2 b/M2/Macaulay2/m2/exports.m2
index 515bfcc1a59..b732f3e8528 100644
--- a/M2/Macaulay2/m2/exports.m2
+++ b/M2/Macaulay2/m2/exports.m2
@@ -501,6 +501,7 @@ export {
 	"applicationDirectory",
 	"apply",
 	"applyKeys",
+    "applyMatrix",
 	"applyPairs",
 	"applyTable",
 	"applyValues",
diff --git a/M2/Macaulay2/m2/matrix2.m2 b/M2/Macaulay2/m2/matrix2.m2
index 595700ed651..3ef5c6a5968 100644
--- a/M2/Macaulay2/m2/matrix2.m2
+++ b/M2/Macaulay2/m2/matrix2.m2
@@ -783,6 +783,9 @@ permanents(ZZ,Matrix) := Ideal => (p,M) -> (
      F := map(ring M, R2,flatten entries M);
      F D1)
 
+applyMatrix = method()
+applyMatrix(Matrix,Function) := (M,f) -> (matrix apply(entries M,i->apply(i,f)))
+
 -- Local Variables:
 -- compile-command: "make -C $M2BUILDDIR/Macaulay2/m2 "
 -- End: