--- a/Behavior.st	Wed Oct 06 14:32:32 1999 +0200
+++ b/Behavior.st	Wed Oct 06 14:38:06 1999 +0200
@@ -839,6 +839,14 @@
     "Modified: 23.4.1996 / 15:55:52 / cg"
 ! !
 
+!Behavior methodsFor:'ID extensions'!
+
+ideNewInstance
+	"Return a new instance of the receiver. This maps
+	to newInstance() in Java."
+
+	^self new! !
+
 !Behavior methodsFor:'accessing'!
 
 addSelector:newSelector withLazyMethod:newMethod
@@ -2795,7 +2803,9 @@
 
     newColl := OrderedCollection new.
     self allSubclassesDo:[:aClass |
-	newColl add:aClass
+        (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
+            newColl add:aClass
+        ]
     ].
     ^ newColl
 
@@ -2812,7 +2822,9 @@
 
     newColl := OrderedCollection new.
     self allSubclassesInOrderDo:[:aClass |
-	newColl add:aClass
+        (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[
+            newColl add:aClass
+        ]
     ].
     ^ newColl
 
@@ -3949,13 +3961,11 @@
     "return a collection containing the receiver and 
      all subclasses (direct AND indirect) of the receiver"
 
-    |newColl|
-
-    newColl := OrderedCollection with:self.
-    self allSubclassesDo:[:aClass |
-	newColl add:aClass
-    ].
-    ^ newColl
+    |coll|
+
+    coll := self allSubclasses asOrderedCollection.
+    coll addFirst:self.
+    ^ coll
 
     "
      Collection withAllSubclasses
@@ -4012,5 +4022,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.156 1999-09-17 06:50:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.157 1999-10-06 12:38:06 ca Exp $'
 ! !