diff --git a/M2/Macaulay2/m2/matrix2.m2 b/M2/Macaulay2/m2/matrix2.m2
index 4b8172cef6c..f6279a99a02 100644
--- a/M2/Macaulay2/m2/matrix2.m2
+++ b/M2/Macaulay2/m2/matrix2.m2
@@ -291,7 +291,6 @@ trimPID := M -> if M.?relations then (if M.?generators then trimPID image genera
     (g,ch) := smithNormalForm(f, ChangeMatrix => {true, false});
     isunit := r -> r != 0 and degree r === {0};
     rows := select(min(rank source g,rank target g),i->isunit g_(i,i));
-    rows = rows | toList(rank target f..<rank target g); -- temporary fix for #3017
     ch = submatrix'(ch,rows,);
     p:=id_(target ch)//ch;
     q:=generators M*p;
diff --git a/M2/Macaulay2/m2/modules2.m2 b/M2/Macaulay2/m2/modules2.m2
index 20f2e6c5fac..ceffe6eaf26 100644
--- a/M2/Macaulay2/m2/modules2.m2
+++ b/M2/Macaulay2/m2/modules2.m2
@@ -202,7 +202,6 @@ addHook((minimalPresentation, Module), Strategy => "PID", (opts, M) -> (
 	       isunit := r -> r != 0 and degree r === {0};
 	       piv := select(pivots g,ij -> isunit g_ij);
 	       rows := first \ piv;
-    	       rows = rows | toList(rank target f..<rank target g); -- temporary fix for #3017
 	       cols := last \ piv;
 	       (g,ch) = (submatrix'(g,rows,cols),submatrix'(ch,rows,));
 	       (g,ch) = (p' g,p' ch);