diff --git a/sources/evolution.F90 b/sources/evolution.F90
index 5b77bab..4f302d2 100644
--- a/sources/evolution.F90
+++ b/sources/evolution.F90
@@ -2852,6 +2852,17 @@ module evolution
 !
     call boundary_variables(tm, dtm)
 
+! apply shapes in blocks which need it
+!
+    pdata => list_data
+    do while (associated(pdata))
+      pmeta => pdata%meta
+
+      if (pmeta%update) call update_shapes(pdata, tm, dtm)
+
+      pdata => pdata%next
+    end do
+
 ! correct unphysical states if detected
 !
     if (fix_unphysical_cells) then
@@ -2882,17 +2893,6 @@ module evolution
       end do
     end if
 
-! apply shapes in blocks which need it
-!
-    pdata => list_data
-    do while (associated(pdata))
-      pmeta => pdata%meta
-
-      if (pmeta%update) call update_shapes(pdata, tm, dtm)
-
-      pdata => pdata%next
-    end do
-
 #ifdef PROFILE
 ! stop accounting time for variable update
 !