diff --git a/src/Elmish.WPF/ViewModel.fs b/src/Elmish.WPF/ViewModel.fs
index b86eb0c7..629c62c7 100644
--- a/src/Elmish.WPF/ViewModel.fs
+++ b/src/Elmish.WPF/ViewModel.fs
@@ -408,7 +408,7 @@ and [<AllowNullLiteral>] internal ViewModel<'model, 'msg>
             | _ -> ()
 
           // Remove old values that no longer exist
-          if newVals.Length = 0
+          if b.Values.Count <> 0 && newVals.Length = 0
           then b.Values.Clear ()
           else
             for i in b.Values.Count - 1..-1..0 do
@@ -542,7 +542,7 @@ and [<AllowNullLiteral>] internal ViewModel<'model, 'msg>
           | _ -> ()
 
         // Remove old view models that no longer exist
-        if newSubModels.Length = 0
+        if b.Vms.Count <> 0 && newSubModels.Length = 0
         then b.Vms.Clear ()
         else
           for i in b.Vms.Count - 1..-1..0 do