--- a/KeywordInContextIndexBuilder.st	Thu Oct 13 14:57:17 2016 +0200
+++ b/KeywordInContextIndexBuilder.st	Thu Oct 13 17:22:49 2016 +0200
@@ -329,14 +329,16 @@
     (separatorAlgorithm value:aLine) do:[:eachWord |
         |set word|
 
-        word := unquoteAlgorithm value:eachWord.
-        ignoreCase ifTrue:[
-            word := word asLowercase.
-        ].
-        (excluded includes:word) ifFalse:[
-            (exclusionFilter isNil or:[ (exclusionFilter value:word) not]) ifTrue:[
-                set := keywordToLinesMapping at:word ifAbsentPut:[Set new].
-                set add:(aLine -> opaqueReference).
+        (excluded includes:eachWord) ifFalse:[
+            word := unquoteAlgorithm value:eachWord.
+            ignoreCase ifTrue:[
+                word := word asLowercase.
+            ].
+            (excluded includes:word) ifFalse:[
+                (exclusionFilter isNil or:[ (exclusionFilter value:word) not]) ifTrue:[
+                    set := keywordToLinesMapping at:word ifAbsentPut:[Set new].
+                    set add:(aLine -> opaqueReference).
+                ]
             ]
         ]
     ].