--- a/Class.st	Mon Sep 12 09:29:18 2011 +0200
+++ b/Class.st	Mon Sep 12 10:18:01 2011 +0200
@@ -474,6 +474,7 @@
 ! !
 
 
+
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -5272,6 +5273,18 @@
     "Modified: / 4.2.2000 / 01:58:56 / cg"
 !
 
+associations
+    |assocs|
+
+    assocs := OrderedCollection new.
+    self associationsDo:[:eachAssoc |
+        assocs add:eachAssoc
+    ].
+    ^ assocs
+
+    "Created: / 12-09-2011 / 10:15:11 / cg"
+!
+
 associationsDo:aBlock
     "evaluate aBlock for all of my simulated classVarName->value associations"
 
@@ -5292,6 +5305,12 @@
     ^ class classVarAt:aKey put:something
 !
 
+bindingOf:aKey
+    ^ self associationAt:aKey
+
+    "Created: / 12-09-2011 / 09:41:18 / cg"
+!
+
 keys
     ^ class classVarNames collect:[:nm | nm asSymbol]
 
@@ -5335,11 +5354,11 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.590 2011-09-12 08:18:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.590 2011-09-12 08:18:01 cg Exp $'
 !
 
 version_SVN