--- a/ClassDescription.st	Thu Apr 20 20:04:43 1995 +0200
+++ b/ClassDescription.st	Mon May 01 23:30:32 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.14 1995-03-18 05:03:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.15 1995-05-01 21:28:53 claus Exp $
 '!
 
 !ClassDescription class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.14 1995-03-18 05:03:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.15 1995-05-01 21:28:53 claus Exp $
 "
 !
 
@@ -139,6 +139,20 @@
     "
 !
 
+instVarOffsetOf:aVariableName
+    "return the index (as used in instVarAt:/instVarAt:put:) of a named instance
+     variable. The returned number is 1..instSize for valid variable names, nil for
+     illegal names."
+
+    ^ self allInstVarNames indexOf:aVariableName ifAbsent:nil
+!
+
+instVarAtOffset:index
+    "return the name of the instance variable at index"
+
+    ^ self allInstanceVariableNames at:index
+!
+
 name
     "return the name of the class. In the current implementation,
      this returns a string, but will be changed to Symbol soon."
@@ -166,6 +180,13 @@
     ] ifFalse:[
 	category := aStringOrSymbol asSymbol
     ]
+!
+
+organization
+    "for ST80 compatibility; 
+     read the documentation in ClassOrganizer for more info."
+
+    ^ ClassOrganizer for:self
 ! !
 
 !ClassDescription methodsFor:'signature checking'!