--- a/KeywordInContextIndexBuilder.st	Sat Oct 05 11:20:30 2019 +0200
+++ b/KeywordInContextIndexBuilder.st	Sat Oct 12 15:04:37 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2003 by eXept Software AG
               All Rights Reserved
@@ -16,7 +18,7 @@
 Object subclass:#KeywordInContextIndexBuilder
 	instanceVariableNames:'keywordToLinesMapping excluded separatorAlgorithm
 		unquoteAlgorithm exclusionFilter matchSorter'
-	classVariableNames:''
+	classVariableNames:'FillWordsEnglish FillWordsGerman FillWordsFrench'
 	poolDictionaries:''
 	category:'Collections-Support'
 !
@@ -294,6 +296,73 @@
     ^ self basicNew initialize
 ! !
 
+!KeywordInContextIndexBuilder class methodsFor:'queries'!
+
+defaultFillWordsEnglish
+    ^ #(
+        'the' 'a'
+        'can' 'you' 
+        'to' 'in' 'out' 'at' 'of' 
+        'also' 'with' 'without' 'all' 'any' 'how' 
+        'however' 'although' 'always' 'either' 'neither'
+        'anywhere' 'anyway' 'anything' 'anyone'
+        'not' 'but' 'else' 'elsewhere'
+        'am' 'are' 'is' 'be' 'will' 'wont' 'won''t' 'do' 'don''t'
+        'no' 'non' 'now' 'old' 'on' 'only'
+        'my' 'their' 'your' 'its'
+        'one' 'two' 'three'
+        'etc' 'for' 'lot' 'lots' 'made' 'may' 'most' 'mostly' 'much'
+        'use' 'this' 'that' 'which' 'what' 'why'
+        'or' 'other' 'please'
+    ).
+!
+
+defaultFillWordsFrench
+    ^ #(
+        'le' 'la' 'il' 'un' 'une' 
+    ).
+!
+
+defaultFillWordsGerman
+    ^ #(
+        'der' 'die' 'das' 'ein' 'eine' 'einer' 'eines'
+        'kann' 'ich' 'du' 'er' 'sie' 'es' 'wir' 'ihr'
+        'zu' 'in' 'aus' 'bei' 'von' 
+        'auch' 'mit' 'ohne' 'alle' 
+        'wie' 'wo' 
+        'jedoch' 'obgleich' 'immer' 'entweder' 'oder' 'weder' 'noch'
+        'irgendwo' 'dennoch' 'etwas' 'jemand'
+        'nicht' 'aber' 'ansonsten' 
+        'bin' 'sind' 'ist' 'wird' 'nicht'
+        'nein' 'alt' 'auf' 'nur'
+        'mein' 'dein' 'sein'
+        'eins' 'zwei' 'drei'
+        'etc' 'kann' 
+        'oder' 'bitte'
+    ).
+!
+
+fillWordsEnglish
+    FillWordsEnglish isNil ifTrue:[
+        ^ self defaultFillWordsEnglish
+    ].
+    ^ FillWordsEnglish 
+!
+
+fillWordsFrench
+    FillWordsFrench isNil ifTrue:[
+        ^ self defaultFillWordsFrench
+    ].
+    ^ FillWordsFrench 
+!
+
+fillWordsGerman
+    FillWordsGerman isNil ifTrue:[
+        ^ self defaultFillWordsGerman
+    ].
+    ^ FillWordsGerman 
+! !
+
 !KeywordInContextIndexBuilder methodsFor:'accessing'!
 
 excluded:aListOfExcludedWords