--- a/SharedPool.st	Sat Jan 15 14:12:17 2011 +0100
+++ b/SharedPool.st	Sat Jan 15 14:13:34 2011 +0100
@@ -65,7 +65,7 @@
     |code|
 
     aDictionary keys asSortedCollection do:[:k |
-        OLEStatusCodeConstants addClassVarName:k
+        self addClassVarName:k
     ].
 
     code := String streamContents:[:s |
@@ -84,7 +84,7 @@
     "
 
     "Created: / 21-12-2010 / 17:58:25 / cg"
-    "Modified: / 15-01-2011 / 14:12:12 / cg"
+    "Modified: / 15-01-2011 / 14:13:20 / cg"
 ! !
 
 
@@ -191,9 +191,9 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.12 2011-01-15 13:12:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.13 2011-01-15 13:13:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.12 2011-01-15 13:12:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.13 2011-01-15 13:13:34 cg Exp $'
 ! !