--- a/Metaclass.st	Thu Aug 24 11:25:19 2006 +0200
+++ b/Metaclass.st	Thu Aug 24 11:25:30 2006 +0200
@@ -773,7 +773,9 @@
 !
 
 theMetaclass
-    "return myself; also implemented in my class object, which also returns me."
+    "return the metaClass of the class-meta pair.
+     Here, return myself, because I am the metaclass.
+     Also implemented in my class, which also returns me."
 
     ^ self
 
@@ -782,7 +784,9 @@
 !
 
 theNonMetaclass
-    "return my class object, also implemented in my class object, which also returns iteself."
+    "return the nonMetaClass of the class-meta pair.
+     Here, return my class object, because I am the metaclass.
+     Also implemented in my class, which returns itself."
 
     ^ self soleInstance
 
@@ -834,7 +838,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.195 2006-08-24 08:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.196 2006-08-24 09:25:30 cg Exp $'
 ! !
 
 Metaclass initialize!