--- a/ClassDescription.st	Thu May 05 06:48:19 2016 +0200
+++ b/ClassDescription.st	Thu May 12 09:30:28 2016 +0200
@@ -1154,6 +1154,34 @@
 
 sharedPoolNames
     ^ #()
+!
+
+typeOfClassVarNamed:classVarName
+    "option to return a collection of types which are considered
+     legal for classVarName.
+     This is pure documentation, and has (currently) no semantic
+     implications.
+     If present, it is used by the code completer's type inferer, to make better
+     guesses.
+     Subclasses may redefine it to return a class, interface or a set of classes."
+
+    ^ nil
+!
+
+typeOfInstVarNamed:instVarName
+    "option to return a collection of types which are considered
+     legal for instVarName.
+     This is pure documentation, and has (currently) no semantic
+     implications.
+     If present, it is used by the code completer's type inferer, to make better
+     guesses.
+     Subclasses may redefine it to return a class, interface or a set of classes."
+
+    ^ nil
+
+    "
+     Class typeOfInstVarNamed:'instSize' -> SmallInteger
+    "
 ! !
 
 !ClassDescription methodsFor:'adding & removing'!