--- a/ClassChange.st	Thu Sep 24 12:00:34 2009 +0200
+++ b/ClassChange.st	Thu Sep 24 12:12:28 2009 +0200
@@ -200,6 +200,14 @@
     "Modified: 15.7.1996 / 09:28:35 / cg"
 !
 
+nonMetaClassName
+    ^ self isForMeta
+	ifTrue:[ self className copyTo:(self className size - 6) ]
+	ifFalse:[ self className ]
+
+    "Created: / 06-11-2008 / 17:26:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 package
     "return the value of the instance variable 'package' (automatically generated)"
 
@@ -328,6 +336,10 @@
     ^ true
 !
 
+isForMeta
+    ^ (self className endsWith:' class')
+!
+
 nameSpaceForVWNamespace:ns class:className ifAbsent:default
     "map the namespace for a given class - hack; only works for some"
 
@@ -347,5 +359,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.54 2009-06-01 10:59:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.55 2009-09-24 10:12:28 cg Exp $'
 ! !