--- a/ExternalStream.st	Mon Jun 08 18:35:41 2009 +0200
+++ b/ExternalStream.st	Mon Jun 08 18:36:09 2009 +0200
@@ -2020,6 +2020,13 @@
     ^ text
 !
 
+contentsAsString
+    "to compensate for the bad naming, use this to make things explicit.
+     See also #contents, which returns the lines as stringCollection for textFiles."
+
+    ^ self contentsOfEntireFile
+!
+
 contentsOfEntireFile
     "ST-80 compatibility: return contents as a String (or byteArray, if in binary mode).
      See also #contents, which returns the lines as stringCollection for text files."
@@ -6095,7 +6102,7 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.321 2009-03-18 16:30:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.322 2009-06-08 16:36:09 stefan Exp $'
 ! !
 
 ExternalStream initialize!