--- a/extensions.st	Mon Oct 26 22:53:01 2009 +0100
+++ b/extensions.st	Mon Oct 26 23:00:28 2009 +0100
@@ -19,6 +19,9 @@
 !Class methodsFor:'*monticello'!
 
 asClassDefinition
+        self isLoaded ifFalse:[
+            ^ self autoload asClassDefinition
+        ].
         ^ MCClassDefinition
                 name: self name
                 superclassName: self superclass name
@@ -41,7 +44,7 @@
 !Class methodsFor:'*monticello'!
 
 poolDictionaryNames
-	^ self sharedPools collect: [:ea | self environment keyAtIdentityValue: ea]
+        ^ self sharedPools "/ collect: [:ea | ea name "self environment keyAtIdentityValue: ea"]
 ! !
 
 !ClassBuilder methodsFor:'compatibility - squeak'!