--- a/Behavior.st	Thu Aug 18 10:37:43 2011 +0100
+++ b/Behavior.st	Sat Aug 20 21:29:33 2011 +0100
@@ -1013,6 +1013,8 @@
     "Modified: 23.4.1996 / 15:55:52 / cg"
 ! !
 
+
+
 !Behavior methodsFor:'Compatibility-Dolphin'!
 
 allSubinstances
@@ -1054,6 +1056,16 @@
     self comment:comment
 !
 
+classSide
+    "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"
+!
+
 defaultNameStemForInstances
     "Answer a basis for names of default instances of the receiver"
 
@@ -1079,6 +1091,15 @@
      SmallInteger selectorsWithArgs:3
      SmallInteger selectorsWithArgs:4
     "
+!
+
+theNonMetaClass
+    "alias for theNonMetaclass - return the class"
+
+    ^ self theNonMetaclass
+
+    "Created: / 26-08-2009 / 11:39:08 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
+    "Modified (comment): / 20-08-2011 / 16:35:07 / cg"
 ! !
 
 !Behavior methodsFor:'Compatibility-VW'!
@@ -1591,7 +1612,6 @@
     ^ self
 ! !
 
-
 !Behavior methodsFor:'dummy changes management'!
 
 addChangeRecordForClassRemove:aClassName
@@ -4720,11 +4740,11 @@
 
 !Behavior class methodsFor:'documentation'!
 
-
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.313 2011/06/28 19:32:32 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.314 2011/08/20 14:36:35 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Behavior.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+    ^ '$ Id: Behavior.st 10643 2011-06-08 21:53:07Z vranyj1  $'
 ! !
+