--- a/Tools__CodeHighlightingService.st	Tue Sep 13 11:57:54 2011 +0200
+++ b/Tools__CodeHighlightingService.st	Tue Sep 13 12:00:42 2011 +0200
@@ -137,15 +137,18 @@
 !CodeHighlightingService methodsFor:'change & update'!
 
 update: aspect with: param from: sender
-    sender == textView modifiedChannel ifTrue:[^self codeChanged: false].
-    sender == textView model ifTrue:[^self codeChanged: true].
-    sender == codeView languageHolder ifTrue:[^self codeChanged: true].
-    sender == codeView classHolder ifTrue:[^self codeChanged: true].
-
+    textView notNil ifTrue:[
+        sender == textView modifiedChannel ifTrue:[^self codeChanged: false].
+        sender == textView model ifTrue:[^self codeChanged: true].
+    ].
+    codeView notNil ifTrue:[
+        sender == codeView languageHolder ifTrue:[^self codeChanged: true].
+        sender == codeView classHolder ifTrue:[^self codeChanged: true].
+    ].
     super update: aspect with: param from: sender
 
     "Created: / 06-03-2010 / 19:38:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-08-2011 / 13:49:53 / cg"
+    "Modified: / 13-09-2011 / 12:00:29 / cg"
 ! !
 
 !CodeHighlightingService methodsFor:'initialization'!
@@ -395,11 +398,11 @@
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.21 2011-09-05 03:21:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.22 2011-09-13 10:00:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.21 2011-09-05 03:21:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.22 2011-09-13 10:00:42 cg Exp $'
 !
 
 version_SVN