--- a/SharedPool.st	Sat Feb 11 22:04:14 2012 +0000
+++ b/SharedPool.st	Mon Feb 13 19:19:41 2012 +0000
@@ -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,16 +221,17 @@
 !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 '
 !
 
 version_SVN
-    ^ '$Id: SharedPool.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: SharedPool.st 10777 2012-02-13 19:19:41Z vranyj1 $'
 ! !
 
 
 
+