--- a/FileApplicationNoteBook.st	Fri Oct 25 12:45:40 2002 +0200
+++ b/FileApplicationNoteBook.st	Fri Oct 25 13:10:33 2002 +0200
@@ -4116,16 +4116,19 @@
 
     self item hasMimeType ifFalse:[^nil].
     (self item mimeType isHtml) ifTrue:[
-        paranthesis := editView parenthesisSpecification.
+        paranthesis := editView parenthesisSpecification copy.
         ((paranthesis at:#open) includes:$<) ifFalse:[
-            col := (paranthesis at:#open) asOrderedCollection add:$<.
+            col := ((paranthesis at:#open) asOrderedCollection).
+            col add:$<.
             paranthesis at:#open put:col.
         ].
         ((paranthesis at:#close) includes:$>) ifFalse:[
-            col := (paranthesis at:#close) asOrderedCollection add:$>.
+            col := ((paranthesis at:#close) asOrderedCollection).
+            col add:$>.
             paranthesis at:#close put:col.
         ]
     ].
+    editView parenthesisSpecification:paranthesis
 ! !
 
 !FileApplicationNoteBook::XViewApplication class methodsFor:'defaults'!
@@ -4605,5 +4608,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.19 2002-10-25 08:44:51 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.20 2002-10-25 11:10:33 penk Exp $'
 ! !