--- a/extensions.st	Wed Sep 07 15:52:11 2011 +0200
+++ b/extensions.st	Wed Sep 07 15:52:11 2011 +0200
@@ -117,46 +117,6 @@
         ^ self sharedPools "/ collect: [:ea | ea name "self environment keyAtIdentityValue: ea"]
 ! !
 
-!ClassBuilder methodsFor:'compatibility - squeak'!
-
-name:newName 
-    inEnvironment:aSystemDictionaryOrClass 
-    subclassOf:aClass
-    type: type 
-    instanceVariableNames: stringOfInstVarNames 
-    classVariableNames: stringOfClassVarNames 
-    poolDictionaries: stringOfPoolNames
-    category: categoryString
-
-    "this returns the created class; it is not a simple accessor"
-
-    |variableBoolean wordsBoolean pointersBoolean|
-
-    variableBoolean := wordsBoolean := pointersBoolean := false.
-    type ~~ #normal ifTrue:[
-self halt:'todo'.
-    ].
-
-    self 
-        name:newName 
-        inEnvironment:aSystemDictionaryOrClass 
-        subclassOf:aClass 
-        instanceVariableNames:stringOfInstVarNames 
-        variable:variableBoolean 
-        words:wordsBoolean 
-        pointers:pointersBoolean 
-        classVariableNames:stringOfClassVarNames 
-        poolDictionaries:stringOfPoolNames 
-        category:categoryString 
-        comment:''
-        changed:false
-        classInstanceVariableNames:''.
-
-    ^ self buildClass
-
-    "Modified (comment): / 20-08-2011 / 18:12:51 / cg"
-! !
-
 !ClassDescription methodsFor:'*monticello-squeakCompatibility'!
 
 mcDefinition
@@ -482,5 +442,5 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.12 2011-08-26 09:08:06 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.13 2011-09-07 13:52:11 cg Exp $'
 ! !
\ No newline at end of file