--- a/MCClassDefinition.st Tue May 08 19:58:20 2018 +0200
+++ b/MCClassDefinition.st Tue May 08 19:58:32 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'stx:goodies/monticello' }"
"{ NameSpace: Smalltalk }"
@@ -329,7 +327,11 @@
type == #compiledMethod ifTrue:[
definitionSelector := #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
] ifFalse:[
+ type == #weak ifTrue:[
+ definitionSelector := #'variableWeakSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'.
+ ] ifFalse:[
self halt:'unhandled class-type'.
+ ]
]
]
]