--- a/Smalltalk.st	Thu May 15 19:21:36 2014 +0200
+++ b/Smalltalk.st	Thu May 15 19:26:50 2014 +0200
@@ -761,26 +761,66 @@
     "Modified: / 10-08-2006 / 12:12:17 / cg"
 !
 
-declareConstant:constantName poolName:poolName value:value
-    |pool|
-
+declareConstant:constantName poolName:poolNameArg value:value
+    "visualAge compatible pool variable declaration.
+     called when a V'age application is filed in 
+     (or one of its changes is accepted via the change browser)"
+
+    |ns poolName pool|
+
+    "/ when coming from the change-browser,
+    "/ a namespace override may be given...
+    ns := Class nameSpaceQuerySignal query.
+    (ns isNil or:[ns == Smalltalk]) ifTrue:[
+        poolName := poolNameArg asSymbol
+    ] ifFalse:[
+        poolName := (ns name,'::',poolNameArg) asSymbol
+    ].
     pool := self classNamed:poolName.
     pool declareConstant:constantName value:value
 !
 
-declarePoolDictionary:poolDictionaryName
-    ^ SharedPool subclass:(poolDictionaryName asSymbol)
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:nil
+declarePoolDictionary:poolDictionaryNameArg
+    "visualAge compatible pool declaration.
+     called when a V'age application is filed in 
+     (or one of its changes is accepted via the change browser)"
+
+    |ns poolName|
+
+    poolName := poolDictionaryNameArg asSymbol.
+
+"/    "/ when coming from the change-browser,
+"/    "/ a namespace override may be given...
+"/    ns := Class nameSpaceQuerySignal query.
+"/    (ns isNil or:[ns == Smalltalk]) ifTrue:[
+"/        poolName := poolDictionaryNameArg asSymbol
+"/    ] ifFalse:[
+"/        poolName := (ns name,'::',poolDictionaryNameArg) asSymbol
+"/    ].
+    ^ SharedPool subclass:(poolName asSymbol)
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'* VAST Pools'
 
     "Modified: / 07-02-2012 / 15:56:16 / cg"
 !
 
-declareVariable:varName poolName:poolName
-    |pool|
-
+declareVariable:varName poolName:poolNameArg
+    "visualAge compatible pool declaration.
+     called when a V'age application is filed in 
+     (or one of its changes is accepted via the change browser)"
+
+    |ns poolName pool|
+
+    "/ when coming from the change-browser,
+    "/ a namespace override may be given...
+    ns := Class nameSpaceQuerySignal query.
+    (ns isNil or:[ns == Smalltalk]) ifTrue:[
+        poolName := poolNameArg asSymbol
+    ] ifFalse:[
+        poolName := (ns name,'::',poolNameArg) asSymbol
+    ].
     pool := self classNamed:poolName.
     pool declareVariable:varName
 
@@ -8197,11 +8237,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1074 2014-03-20 12:26:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1075 2014-05-15 17:26:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1074 2014-03-20 12:26:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1075 2014-05-15 17:26:50 cg Exp $'
 !
 
 version_SVN