--- a/SharedPool.st	Mon Feb 06 10:38:25 2012 +0100
+++ b/SharedPool.st	Tue Feb 07 15:58:03 2012 +0100
@@ -89,6 +89,16 @@
     ].
 
     self classVarAt:constantName put:value.
+!
+
+declareVariable:varName
+    self == SharedPool ifTrue:[ self error ].
+
+    (self classVarNames includes:varName) ifFalse:[
+        self addClassVarName:varName
+    ].
+
+    "Created: / 07-02-2012 / 15:57:35 / cg"
 ! !
 
 !SharedPool class methodsFor:'code generation'!
@@ -211,9 +221,9 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.18 2011-09-12 08:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.19 2012-02-07 14:58:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.18 2011-09-12 08:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.19 2012-02-07 14:58:03 cg Exp $'
 ! !