--- a/Stream.st	Mon Jun 10 17:32:35 2013 +0100
+++ b/Stream.st	Fri Jun 21 19:04:37 2013 +0100
@@ -1793,17 +1793,13 @@
     ^ self nextPutShort:aNumber MSB:true
 !
 
-nextShortPut:aNumber MSB:msbFlag
-    "for backward compatibility - this will vanish"
-
-    ^ self nextPutShort:aNumber MSB:msbFlag
-
-    "Modified: / 1.11.1997 / 18:31:05 / cg"
-!
-
 nextTwoBytesPut: anInteger
+        <resource: #obsolete>
         "Write anInteger as the next two bytes of the
          receiver stream."
+
+    self obsoleteMethodWarning:'use #nextPutShort:MSB:'.
+
     self
         nextPutByte: (anInteger bitAnd: 255);
         nextPutByte: ((anInteger bitShift: -8) bitAnd: 255)
@@ -3308,11 +3304,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.200 2013-04-25 13:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.201 2013-06-12 08:37:20 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.200 2013-04-25 13:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.201 2013-06-12 08:37:20 stefan Exp $'
 ! !