--- a/Tools__CodeView2.st	Tue Sep 24 17:54:30 2013 +0200
+++ b/Tools__CodeView2.st	Tue Sep 24 18:56:36 2013 +0200
@@ -2388,6 +2388,8 @@
     |lineString yTop yBaseline fontAscent fontDescent
      textW requiredW oldFont newFont oldColor newColor|
 
+    textView isNil ifTrue:[^ self].     "/ happens when shown in UIPainter
+
     requiredW := self width.
 
     showLineNumbers ifTrue:[
@@ -2414,13 +2416,14 @@
                 self font:newFont
             ].
         ].
-        fontAscent := textView font ascentOn:device.
-        fontDescent := textView font descentOn:device.
-
-        yTop := self yOfTextViewLine:line.
-        yBaseline := yTop + fontAscent.
     ].
 
+    fontAscent := textView font ascentOn:device.
+    fontDescent := textView font descentOn:device.
+
+    yTop := self yOfTextViewLine:line.
+    yBaseline := yTop + fontAscent.
+
     cleared ifFalse:[
         self clearRectangleX:0 y:yBaseline - font ascent 
             width: width - 2 
@@ -3652,15 +3655,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.124 2013-09-24 16:56:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.124 2013-09-24 16:56:36 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.123 2013-09-23 20:10:44 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.124 2013-09-24 16:56:36 cg Exp $'
 ! !