--- a/HTMLDocGenerator.st	Thu Oct 13 18:50:22 2016 +0200
+++ b/HTMLDocGenerator.st	Thu Oct 13 19:03:36 2016 +0200
@@ -2317,9 +2317,9 @@
     aKWIC entriesDo:[:word :left :right :class|
         |ref lcWord ctx|
 
-        ctx := (HTMLUtilities escapeCharacterEntities:(left contractAtBeginningTo:20))
+        ctx := (HTMLUtilities escapeCharacterEntities:(left contractAtBeginningTo:25))
                ,' <b>',(HTMLUtilities escapeCharacterEntities:word),'</b> '
-               ,(HTMLUtilities escapeCharacterEntities:(right contractAtEndTo:20)).
+               ,(HTMLUtilities escapeCharacterEntities:(right contractAtEndTo:25)).
         
         lcWord := word asLowercase.
         lcWord ~= prevWord ifTrue:[