--- a/SimulatedClassPool.st	Tue Nov 14 20:11:06 2000 +0100
+++ b/SimulatedClassPool.st	Wed Nov 15 13:49:28 2000 +0100
@@ -60,10 +60,11 @@
 associationAt:aName ifAbsent:exceptionBlock
     "simulate an association"
 
-    |internalName|
+    |internalName cls|
 
-    internalName := (class name , ':' , aName) asSymbol.
-    ^ (internalName -> (class classVarAt:aName)) changeClassTo:SimulatedVariableBinding
+    cls := class theNonMetaclass. 
+    internalName := (cls name , ':' , aName) asSymbol.
+    ^ (internalName -> (cls classVarAt:aName)) changeClassTo:SimulatedVariableBinding
 
     "Created: / 3.2.2000 / 23:30:07 / cg"
     "Modified: / 4.2.2000 / 01:58:56 / cg"
@@ -81,6 +82,10 @@
     ^ class classVarAt:aKey
 !
 
+at:aKey ifAbsent:exceptionBlock
+    ^ class classVarAt:aKey ifAbsent:exceptionBlock
+!
+
 at:aKey put:something
     ^ class classVarAt:aKey put:something
 !
@@ -112,5 +117,5 @@
 !SimulatedClassPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/SimulatedClassPool.st,v 1.3 2000-08-05 16:39:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/SimulatedClassPool.st,v 1.4 2000-11-15 12:49:28 cg Exp $'
 ! !