Related: tdf#80731 missing ')' breaks Gimmicks.Autotext macro

Change-Id: Idbfcab663b5f4dbd97b49f2771c62564ca7d7972
Reviewed-on: https://gerrit.libreoffice.org/34725Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Katarina Behrens <Katarina.Behrens@cib.de>

wizards/source/gimmicks/ReadDir.xba

@@ -263,7 +263,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
@@ -319,4 +319,4 @@ Sub ToggleDialogControls(bDoEnable as Boolean)
 		.Label2.Enabled = bDoEnable
 		.TextField1.Enabled = bDoEnable
 	End With
-End Sub</script:module>
\ No newline at end of file
+End Sub</script:module>