Deleted whitespace, fixed missing paranthesis

wizards/source/gimmicks/ReadDir.xba

@@ -266,7 +266,7 @@ Dim MaxFileIndex as Integer
 				End If
 			Next i
 		End If
-	Loop Until m > Ubound(DirList()
+	Loop Until m > Ubound(DirList())
 	ReDim Preserve FileNameList(n-1,1) as String
 	ReadSourceDirectory() = FileNameList()
 End Function