--- a/ClassDescription.st	Fri Feb 13 14:41:23 2004 +0100
+++ b/ClassDescription.st	Fri Feb 13 14:41:41 2004 +0100
@@ -3259,8 +3259,10 @@
 
     self isVariable ifTrue:[
         self isLongs ifFalse:[
-            ^ self error:
-                'cannot make a variable long subclass of a variable non-long class'
+            self isBytes ifFalse:[
+                ^ self error:
+                    'cannot make a variable long subclass of a variable non-long class'
+            ].
         ].
     ].
 
@@ -3462,8 +3464,10 @@
 
     self isVariable ifTrue:[
         self isWords ifFalse:[
-            ^ self error:
-                'cannot make a variable word subclass of a variable non-word class'
+            self isBytes ifFalse:[
+                ^ self error:
+                    'cannot make a variable word subclass of a variable non-word class'
+            ]
         ].
     ].
 
@@ -3995,7 +3999,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.161 2003-10-10 07:05:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.162 2004-02-13 13:41:41 cg Exp $'
 ! !
 
 ClassDescription initialize!