diff --git a/solvers/USandSlabs.pas b/solvers/USandSlabs.pas
index ab341f5..649352c 100644
--- a/solvers/USandSlabs.pas
+++ b/solvers/USandSlabs.pas
@@ -230,13 +230,11 @@ begin
       end;
 
   // Updates disintegration flag.
-  if ABrick.SupportBricks.Count = 1 then
+  if (ABrick.SupportBricks.Count = 1)
+  and ABrick.SupportBricks[0].IsDisintegratable then
   begin
-    if ABrick.SupportBricks[0].IsDisintegratable then
-    begin
-      ABrick.SupportBricks[0].IsDisintegratable := False;
-      Dec(FPart1);
-    end;
+    ABrick.SupportBricks[0].IsDisintegratable := False;
+    Dec(FPart1);
   end;
   for i := 0 to ABrick.SupportBricks.Count - 1 do
     ABrick.SupportBricks[i].AddTopBrick(ABrick);