--- a/Process.st	Sat Mar 25 02:18:31 1995 +0100
+++ b/Process.st	Sat Mar 25 02:24:37 1995 +0100
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Process.st,v 1.21 1995-03-08 23:39:27 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Process.st,v 1.22 1995-03-25 01:23:35 claus Exp $
 '!
 
 !Process class methodsFor:'documentation'!
@@ -45,7 +45,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Process.st,v 1.21 1995-03-08 23:39:27 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Process.st,v 1.22 1995-03-25 01:23:35 claus Exp $
 "
 !
 
@@ -250,8 +250,8 @@
 	"
 	 avoid name inflation
 	"
-	(nm endsWith:'(sub)') ifFalse:[
-	    nm := nm , ' (sub)'
+	(nm endsWith:' sub') ifFalse:[
+	    nm := nm , ' [' , Processor activeProcess id printString , '] sub'
 	].
 	name := nm
     ]