diff --git a/src/BetterArray.cls b/src/BetterArray.cls
index 7704af5..91ea828 100644
--- a/src/BetterArray.cls
+++ b/src/BetterArray.cls
@@ -1230,8 +1230,10 @@ Attribute Splice.VB_Description = "changes the contents of the array by removing
         i = ActualStart
         Dim j As Long
         For j = LBound(TempItems) To UBound(TempItems)
+            EnsureCapacity This.Length + 1
             LocalItems(i) = TempItems(j)
             inc i
+            inc This.Length
         Next
     End If