--- a/SequenceView.st	Fri Oct 14 18:43:08 2016 +0200
+++ b/SequenceView.st	Fri Oct 14 18:43:46 2016 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 ScrollableView subclass:#SequenceView
 	instanceVariableNames:''
 	classVariableNames:''
@@ -100,8 +102,10 @@
 font:aFont
     "set the font for the scrolled view"
 
+    |scrolledView|
+    
     super font:aFont.
-    self scrolledView font:aFont.
+    (scrolledView := self scrolledView) notNil ifTrue:[scrolledView font:aFont].
 !
 
 invalidate
@@ -137,5 +141,6 @@
 !SequenceView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SequenceView.st,v 1.11 2008-07-18 08:58:08 stefan Exp $'
+    ^ '$Header$'
 ! !
+