--- a/ClassDefinitionChange.st	Wed Jun 06 16:47:53 2012 +0200
+++ b/ClassDefinitionChange.st	Wed Jun 13 12:26:13 2012 +0200
@@ -196,7 +196,12 @@
 !
 
 poolDictionaries
+    poolDictionaries isNil ifTrue:[
+        self setupFromSource.
+    ].
     ^ poolDictionaries
+
+    "Modified: / 13-06-2012 / 12:23:41 / cg"
 !
 
 poolDictionaries:something
@@ -537,7 +542,7 @@
 setupFromSource
     "extract privacy, category and selector from the source"
 
-    |parseTree catIdx|
+    |parseTree catIdx poolIdx|
 
     source notNil ifTrue:[
         parseTree := Parser parseExpression:source.
@@ -558,12 +563,17 @@
             category := (parseTree args at:catIdx) evaluate.
         ].
 
+        poolIdx := definitionSelector keywords indexOf:'poolDictionaries:'.  
+        poolIdx ~~ 0 ifTrue:[
+            poolDictionaries := (parseTree args at:poolIdx) evaluate.
+        ].
+
         superClassName := parseTree receiver name.
     ].
 
     "Created: / 11-10-2006 / 14:10:02 / cg"
-    "Modified: / 26-10-2006 / 19:29:17 / cg"
     "Modified: / 08-11-2010 / 13:47:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-06-2012 / 12:25:10 / cg"
 ! !
 
 !ClassDefinitionChange methodsFor:'visiting'!
@@ -577,11 +587,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.67 2012-06-06 14:47:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.68 2012-06-13 10:26:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.67 2012-06-06 14:47:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.68 2012-06-13 10:26:13 cg Exp $'
 !
 
 version_SVN