--- a/Behavior.st	Tue Aug 17 12:15:45 1999 +0200
+++ b/Behavior.st	Tue Aug 17 15:48:52 1999 +0200
@@ -960,6 +960,19 @@
     ObjectMemory flushCaches
 !
 
+classPool
+    "return something which allows access to my classVariables via
+     #at: and #at:put: messages."
+
+    ^ SimulatedClassPool new setClass:self
+
+    "
+     Button classPool
+    "
+
+    "Modified: 17.10.1997 / 12:12:14 / cg"
+!
+
 displayString
     "although behaviors have no name, we return something
      useful here - there are many places (inspectors) where
@@ -2904,12 +2917,6 @@
     "
 !
 
-classPool
-    ^ IdentityDictionary new
-
-    "Modified: 17.10.1997 / 12:07:29 / cg"
-!
-
 classVarNames
     "return a collection of the class variable name-strings.
      Returning empty here, since Behavior does not define any classVariables.
@@ -4002,5 +4009,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.149 1999-08-09 09:38:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.150 1999-08-17 13:48:52 cg Exp $'
 ! !