--- a/CharacterSetView.st	Fri Aug 30 10:42:22 2019 +0200
+++ b/CharacterSetView.st	Sat Aug 31 16:10:32 2019 +0200
@@ -215,13 +215,16 @@
 
     update := 
         [
-            |uOffs selectedCodePoint lbl nm unicodeBlock|
+            |uOffs selectedCodePoint lbl nm unicodeBlock unicodeBlocks|
 
             uOffs := v codePage * 16r0100.
 
             aCharacterEncoderOrNil isNil ifTrue:[
                 lbl := 'u%1..u%2 %4'.
-                unicodeBlock := (Character value:uOffs) unicodeBlock.
+                "/ unicodeBlock := (Character value:uOffs) unicodeBlock.
+                unicodeBlocks := (Character value:uOffs) to:(Character value:uOffs+0xFF) collect:[:code |
+                                        code unicodeBlock] as:OrderedSet.
+                unicodeBlock := (unicodeBlock asStringCollection asStringWith:' / ') contractAtEndTo:100
             ] ifFalse:[
                 nm := aCharacterEncoderOrNil userFriendlyNameOfEncoding.
                 lbl := '%1..%2 / %3 %4'.