Index: /issm/trunk/src/m/model/setelementstype.m
===================================================================
--- /issm/trunk/src/m/model/setelementstype.m	(revision 5968)
+++ /issm/trunk/src/m/model/setelementstype.m	(revision 5969)
@@ -174,5 +174,6 @@
 		md.elements_type(find(pattynstokesflag))=PattynStokesApproximationEnum();
 
-		%Now recreate gridonmacayeal and gridonmacayealpattyn
+		%Now recreate gridonpattynstokes
+		gridonpattynstokes=zeros(md.numberofgrids,1);
 		gridonpattynstokes(md.elements(find(pattynstokesflag),:))=1;
 	elseif any(stokesflag) & any(macayealflag+hutterflag),
@@ -199,5 +200,7 @@
 if any(stokesflag),
 	pos=find(~gridonstokes);
-	md.vertices_type(pos)=NoneApproximationEnum();
+	if(~any(pattynflag)),
+		md.vertices_type(pos)=NoneApproximationEnum();
+	end
 end
 pos=find(gridonpattynstokes);