diff --git a/dos/sbf/sbf.bas b/dos/sbf/sbf.bas
index 8d84894..9d2a61d 100644
--- a/dos/sbf/sbf.bas
+++ b/dos/sbf/sbf.bas
@@ -1919,7 +1919,6 @@ End Sub
 
 Sub FillAbilitiesForAbilityGroup (ability As Integer, items() As String)
     count = GetNumItemsForAbilityGroup(ability)
-    ReDim items(1 To count) As String
     If count > 0 Then
         ReDim items(1 To count) As String
     Else