--- a/Behavior.st	Wed Apr 17 21:20:02 2013 +0200
+++ b/Behavior.st	Wed Apr 17 21:37:45 2013 +0200
@@ -3159,6 +3159,14 @@
     "Modified: 23.6.1997 / 10:45:57 / cg"
 !
 
+environment
+    "return the namespace I am contained in; ST-80 compatible name.
+     Not normally needed here, but added to allow for instances of anonymous behaviours
+     to be inspected or browsed."
+
+    ^ nil
+!
+
 firstDefinitionSelectorPart
     "return the first part of the selector with which I was (can be) defined in my superclass"
 
@@ -3242,6 +3250,16 @@
     "Created: 28.10.1996 / 15:10:02 / cg"
 !
 
+isObsolete
+    "return true, if the receiver is obsolete
+     (i.e. has been replaced by a different class or was removed,
+      but is still referenced by instanced).
+     Not normally needed here, but added to allow for instances of anonymous behaviours
+     to be inspected or browsed."
+
+    ^ false
+!
+
 isPrivate
     "return true, if the receiver is some private class"
 
@@ -3320,6 +3338,22 @@
     ^ self
 !
 
+privateClassesAt:aClassNameStringOrSymbol
+    "return a private class if present; nil otherwise.
+     Not normally needed here, but added to allow for instances of anonymous behaviours
+     to be inspected or browsed."
+
+    ^ nil
+!
+
+realSharedPoolNames
+    "this returns the namespace aware pool names.
+     Not normally needed here, but added to allow for instances of anonymous behaviours
+     to be inspected or browsed."
+
+    ^ #()
+!
+
 revision
     ^ nil
 
@@ -3394,6 +3428,14 @@
     "Modified: / 31.1.2000 / 16:17:46 / cg"
 !
 
+topNameSpace
+    "return the nameSpace of my topOwningClass (if private) or my own nameSpace.
+     Not normally needed here, but added to allow for instances of anonymous behaviours
+     to be inspected or browsed."
+
+    ^ nil
+!
+
 topOwningClass
     "return my outermost owning class - nil if I am a public class"
 
@@ -4851,10 +4893,10 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.337 2013-04-17 19:20:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.338 2013-04-17 19:37:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.337 2013-04-17 19:20:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.338 2013-04-17 19:37:45 cg Exp $'
 ! !