--- a/CharacterSetView.st	Tue Feb 18 18:17:42 2014 +0100
+++ b/CharacterSetView.st	Tue Feb 18 18:22:22 2014 +0100
@@ -373,7 +373,7 @@
     something == #font ifTrue:[
         newFont := masterViewOrNil font.
         self font:newFont.
-        characterEncoding := newFont encoding.
+        super characterEncoding:newFont encoding.
         ^ self.
     ].
     super update:something with:aParameter from:changedObject
@@ -587,10 +587,10 @@
 !CharacterSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.30 2014-02-13 18:23:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.31 2014-02-18 17:22:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.30 2014-02-13 18:23:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CharacterSetView.st,v 1.31 2014-02-18 17:22:22 stefan Exp $'
 ! !