--- a/ClassDescription.st	Sat Feb 07 18:47:24 2015 +0100
+++ b/ClassDescription.st	Sat Feb 07 19:01:29 2015 +0100
@@ -697,6 +697,15 @@
     ^ Dolphin::SourceManager default
 ! !
 
+!ClassDescription methodsFor:'Compatibility-ST/V'!
+
+variableByteSubclass:nameSymbol classVariableNames:classVarString poolDictionaries:pool category:cat
+    "create a new class as a subclass of an existing class (the receiver)
+     in which the subclass has indexable byte-sized nonpointer variables"
+
+    ^ self variableByteSubclass:nameSymbol instanceVariableNames:'' classVariableNames:classVarString poolDictionaries:pool category:cat
+! !
+
 !ClassDescription methodsFor:'Compatibility-ST80'!
 
 addInstVarName:anotherInstVar
@@ -920,15 +929,6 @@
     "Created: / 15.6.1998 / 20:36:49 / cg"
 ! !
 
-!ClassDescription methodsFor:'Compatibility-VSE'!
-
-variableByteSubclass:nameSymbol classVariableNames:classVarString poolDictionaries:pool category:cat
-    "create a new class as a subclass of an existing class (the receiver)
-     in which the subclass has indexable byte-sized nonpointer variables"
-
-    ^ self variableByteSubclass:nameSymbol instanceVariableNames:'' classVariableNames:classVarString poolDictionaries:pool category:cat
-! !
-
 !ClassDescription methodsFor:'Compatibility-VW'!
 
 compile: aString classified: protocol attributes: attributes
@@ -4351,11 +4351,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.259 2015-02-05 11:28:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.260 2015-02-07 18:01:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.259 2015-02-05 11:28:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.260 2015-02-07 18:01:29 cg Exp $'
 ! !