Index: /issm/trunk/src/c/objects/Elements/Penta.cpp
===================================================================
--- /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 6044)
+++ /issm/trunk/src/c/objects/Elements/Penta.cpp	(revision 6045)
@@ -2588,5 +2588,5 @@
 		DLStokes[7][7]=-2*viscosity*gauss->weight*Jdet2d*bed_normal[1];
 		DLStokes[8][8]=-2*viscosity*gauss->weight*Jdet2d*bed_normal[2];
-		DLStokes[9][8]=-2*viscosity*gauss->weight*Jdet2d*bed_normal[0]/2.0;
+		DLStokes[9][9]=-2*viscosity*gauss->weight*Jdet2d*bed_normal[0]/2.0;
 		DLStokes[10][10]=-2*viscosity*gauss->weight*Jdet2d*bed_normal[1]/2.0;
 		DLStokes[11][11]=stokesreconditioning*gauss->weight*Jdet2d*bed_normal[0];