--- a/ClassDescription.st	Mon Jul 17 12:30:28 2017 +0200
+++ b/ClassDescription.st	Mon Jul 17 13:10:28 2017 +0200
@@ -931,20 +931,6 @@
     ^ mthd.
 !
 
-defineSharedVariable:name private:private constant:constant category:category initializer:initializer 
-    self addClassVarName:name.
-    initializer notNil ifTrue:[
-        self shouldImplement
-    ].
-!
-
-defineStatic:name private:private constant:constant category:category initializer:initializer attributes:annotations
-    self addClassVarName:name.
-    initializer notNil ifTrue:[
-	self shouldImplement
-    ].
-!
-
 instVarIndexFor:aVariableName ifAbsent:exceptionValue
     "alias for #instVarOffsetOf: for VW compatibility."