--- a/extensions.st	Wed Nov 22 14:30:43 2006 +0100
+++ b/extensions.st	Wed Nov 22 14:30:46 2006 +0100
@@ -0,0 +1,49 @@
+"{ Package: 'stx:goodies/monticello' }"
+!
+
+!Class methodsFor:'*monticello'!
+
+asClassDefinition
+	^ MCClassDefinition
+		name: self name
+		superclassName: self superclass name
+		category: self category 
+		instVarNames: self instVarNames
+		classVarNames: self classVarNames
+		poolDictionaryNames: self poolDictionaryNames
+		classInstVarNames: self class instVarNames
+		type: self typeOfClass
+		comment: self organization classComment	 asString
+		commentStamp: self organization commentStamp	
+! !
+
+!Class methodsFor:'*monticello'!
+
+classDefinitions
+	^ Array with: self asClassDefinition
+! !
+
+!Class methodsFor:'*monticello'!
+
+poolDictionaryNames
+	^ self sharedPools collect: [:ea | self environment keyAtIdentityValue: ea]
+! !
+
+!Object methodsFor:'*monticello'!
+
+isConflict
+	^false
+! !
+
+!Stream methodsFor:'*monticello'!
+
+isMessageStream
+	^ false
+! !
+
+!String methodsFor:'*monticello'!
+
+extractNumber
+	^ ('0', self select: [:ea | ea isDigit]) asNumber
+! !
+