--- a/Tools__BackgroundSourceProcessingService.st	Tue Aug 28 15:06:19 2018 +0200
+++ b/Tools__BackgroundSourceProcessingService.st	Wed Aug 29 09:11:29 2018 +0200
@@ -105,7 +105,7 @@
     textView notNil ifTrue:[
         "/sender == textView modifiedChannel ifTrue:[^self codeChanged: false].
         sender == textView model ifTrue:[
-            sender value ~= textView contents ifTrue:[
+            (sender value ? '') string ~= textView contentsAsString ifTrue:[
                 self modelChanged.
                 ^self.
             ].
@@ -140,6 +140,7 @@
     "Modified: / 13-09-2011 / 12:00:29 / cg"
     "Modified: / 22-02-2012 / 15:02:16 / jv"
     "Modified: / 15-04-2013 / 23:00:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-08-2018 / 18:29:45 / Claus Gittinger"
 ! !
 
 !BackgroundSourceProcessingService methodsFor:'event handling'!