--- a/FileApplicationNoteBook.st	Fri Dec 14 10:09:51 2012 +0100
+++ b/FileApplicationNoteBook.st	Fri Dec 14 17:19:57 2012 +0100
@@ -5209,6 +5209,7 @@
 "/    self withWaitCursorDo:[
         self setContents.
 "/    ].
+    self setUpTextView
 
     "Modified: / 25-07-2006 / 09:09:55 / cg"
 !
@@ -5953,13 +5954,14 @@
     "change the parenthesis-spec of the editor to include $< .. $> if the
      shown document is an html- or xml document"
 
-    |item mimeType parenthesis commentStrings parentesisSpec col|
+    |item mimeType suffix parenthesis commentStrings parentesisSpec col|
 
     editView notNil ifTrue:[
         item := self item.
         item notNil ifTrue:[
             item hasMimeType ifTrue:[
                 mimeType := item mimeType.
+                suffix := self fileName asFilename suffix.
 
                 (mimeType isHtml or:[mimeType isXml]) ifTrue:[
                     parenthesis := editView parenthesisSpecification copy.
@@ -5978,7 +5980,7 @@
 
                 commentStrings := MIMETypes 
                                     commentStringsForMimeType:mimeType 
-                                    suffix:(self fileName asFilename suffix) 
+                                    suffix:suffix 
                                     ifUnknown:[
                                         "/ st:
                                         #('"/' ('"' '"'))
@@ -5990,7 +5992,7 @@
 
                 parentesisSpec := MIMETypes 
                                     parenthesisSpecForMimeType:mimeType 
-                                    suffix:(self fileName asFilename suffix) 
+                                    suffix:suffix 
                                     ifUnknown:[
                                         |spec|
                                         spec := IdentityDictionary new.       
@@ -6726,9 +6728,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.270 2012-12-12 14:31:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.271 2012-12-14 16:19:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.270 2012-12-12 14:31:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.271 2012-12-14 16:19:57 cg Exp $'
 ! !