--- a/ActorStream.st	Fri Aug 01 11:59:09 1997 +0200
+++ b/ActorStream.st	Wed Aug 06 00:57:59 1997 +0200
@@ -94,6 +94,15 @@
 	^ nextPutAllBlock value:something
     ].
     super nextPutAll:something
+!
+
+nextPutByte:something
+    "put something onto the stream by evaluating the nextPutBlock with
+     something as argument"
+
+    self nextPut:(something asCharacter)
+
+    "Created: 6.8.1997 / 00:44:32 / cg"
 ! !
 
 !ActorStream methodsFor:'defining actions'!
@@ -127,5 +136,5 @@
 !ActorStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.5 1996-09-20 07:34:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ActorStream.st,v 1.6 1997-08-05 22:57:59 cg Exp $'
 ! !