--- wizards.orig/source/importwizard/FilesModul.xba	2005-05-13 10:43:43.000000000 +0100
+++ wizards/source/importwizard/FilesModul.xba	2005-10-24 15:49:21.000000000 +0100
@@ -41,6 +41,8 @@
 Dim XMLTemplateContentString as String
 Dim ApplIndex as Integer
 Dim bAssignFileName as Boolean
+Dim oDocInfo as Object
+Dim bInterruptSearch as Boolean
 	oDocInfo = CreateUnoService(&quot;com.sun.star.document.DocumentProperties&quot;)
 	bInterruptSearch = False
 	For i = 0 To MaxCollectIndex
