--- a/Smalltalk.st	Fri Feb 03 16:30:07 2006 +0100
+++ b/Smalltalk.st	Fri Feb 03 16:34:48 2006 +0100
@@ -677,6 +677,21 @@
 
 allClassesImplementing:aSelector
     ^ self allClasses select:[:cls | cls implements:aSelector].
+!
+
+declareConstant:constantName poolName:poolName value:value
+    |pool|
+
+    pool := self classNamed:poolName.
+    pool declareConstant:constantName value:value
+!
+
+declarePoolDictionary:poolDictionaryName
+    SharedPool subclass:(poolDictionaryName asSymbol)
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:nil
 ! !
 
 !Smalltalk class methodsFor:'Compatibility-VW5.4'!
@@ -6626,5 +6641,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.708 2006-01-30 18:09:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.709 2006-02-03 15:34:48 cg Exp $'
 ! !