--- a/ObjectView.st	Fri Jul 27 11:05:29 2012 +0200
+++ b/ObjectView.st	Fri Jul 27 11:09:03 2012 +0200
@@ -2723,11 +2723,13 @@
     "store the contents in binary representation on aStream."
 
     aStream binary.
-    self topView withCursor:Cursor write do:[
-	self forEach:contents do:[:theObject |
-	    theObject storeBinaryOn:aStream.
-	].
+    self topView withWriteCursorDo:[
+        self forEach:contents do:[:theObject |
+            theObject storeBinaryOn:aStream.
+        ].
     ]
+
+    "Modified: / 27-07-2012 / 09:45:31 / cg"
 !
 
 storeContentsOn:aStream
@@ -2738,15 +2740,17 @@
 
     |excla|
 
-    self topView withCursor:Cursor write do:[
-	excla := aStream class chunkSeparator.
-	self forEach:contents do:[:theObject |
-	    theObject storeOn:aStream.
-	    aStream nextPut:excla.
-	    aStream cr
-	].
-	aStream nextPut:excla
+    self topView withWriteCursorDo:[
+        excla := aStream class chunkSeparator.
+        self forEach:contents do:[:theObject |
+            theObject storeOn:aStream.
+            aStream nextPut:excla.
+            aStream cr
+        ].
+        aStream nextPut:excla
     ]
+
+    "Modified: / 27-07-2012 / 09:45:23 / cg"
 !
 
 withoutRedrawFileInContentsFrom:aStream
@@ -3511,9 +3515,9 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.134 2009-10-02 12:47:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.135 2012-07-27 09:09:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.134 2009-10-02 12:47:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.135 2012-07-27 09:09:03 cg Exp $'
 ! !