--- a/Process.st	Fri Feb 25 14:02:06 1994 +0100
+++ b/Process.st	Fri Feb 25 14:03:34 1994 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Process.st,v 1.8 1993-12-19 23:40:21 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Process.st,v 1.9 1994-02-25 13:03:29 claus Exp $
 '!
 
 !Process methodsFor:'accessing'!
@@ -190,6 +190,10 @@
     
 !Process methodsFor:'printing'!
 
-printString
-    ^ 'a ' , state , ' Process (' , self nameOrId , ')'
+printOn:aStream
+    aStream nextPutAll:'a ';
+            nextPutAll:state;
+            nextPutAll:' Process (';
+            nextPutAll:self nameOrId;
+            nextPutAll:')'
 ! !