--- a/AbstractSyntaxHighlighter.st	Tue Jul 05 11:13:09 2011 +0200
+++ b/AbstractSyntaxHighlighter.st	Tue Jul 05 13:35:00 2011 +0200
@@ -176,11 +176,11 @@
         ^ aString
     ] do:[
         highlighter := self for:(ReadStream on:aString string) in:aClass.    
+        highlighter method:methodOrNil.
         preferencesOrNil notNil ifTrue:[highlighter preferences:preferencesOrNil].
         "/ highlighter ignoreErrors:true.
         highlighter ignoreWarnings:true.
         highlighter sourceText:(text := aString string asText).
-        highlighter method:methodOrNil.
 
         "/ use an array here - this can be changed much faster using #at:put:
         text emphasisCollection:(Array new:aString size).
@@ -222,7 +222,7 @@
     "
 
     "Created: / 28-04-2010 / 13:01:42 / cg"
-    "Modified: / 07-05-2010 / 12:24:52 / cg"
+    "Modified: / 05-07-2011 / 11:22:20 / cg"
 !
 
 formatMethod:aMethodOrNil source:aString in:aClass using:preferencesOrNil elementsInto: elements
@@ -434,7 +434,7 @@
 !AbstractSyntaxHighlighter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.6 2011-07-05 09:13:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AbstractSyntaxHighlighter.st,v 1.7 2011-07-05 11:35:00 cg Exp $'
 !
 
 version_SVN