--- a/FileApplicationNoteBook.st	Thu Feb 07 13:56:21 2008 +0100
+++ b/FileApplicationNoteBook.st	Fri Feb 08 11:43:43 2008 +0100
@@ -4925,13 +4925,13 @@
 setContents
     |text|
 
-    text := self getContents.
+    self withReadCursorDo:[
+        text := self getContents.
+    ].
     text isNil ifTrue:[ ^ false].
 
     self setContentsFor:text.
     ^ true
-
-
 !
 
 setContentsFor:aUnicodeText
@@ -5966,5 +5966,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.220 2008-01-27 16:04:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.221 2008-02-08 10:43:43 cg Exp $'
 ! !