--- a/Behavior.st	Fri Feb 10 10:41:07 2017 +0100
+++ b/Behavior.st	Fri Feb 10 10:43:46 2017 +0100
@@ -1295,13 +1295,15 @@
 !
 
 classSide
+    <resource: #obsolete>
+
     "alias for theMetaclass - return the metaclass"
 
     ^ self theMetaclass
 
     "Created: / 26-08-2009 / 11:44:51 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
     "Modified: / 12-09-2010 / 16:38:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 20-08-2011 / 16:33:47 / cg"
+    "Modified: / 10-02-2017 / 10:42:59 / cg"
 !
 
 defaultNameStemForInstances
@@ -1311,6 +1313,16 @@
 
 !
 
+instanceSide
+    <resource: #obsolete>
+
+    "alias for theNonMetaclass - return the non-metaclass"
+
+    ^ self theNonMetaclass
+
+    "Created: / 10-02-2017 / 10:42:44 / cg"
+!
+
 lookupSelector:aSelector
     "return the method for a selector - Squeak compatibility"