--- a/ClassDescription.st	Mon Mar 26 14:25:52 2007 +0200
+++ b/ClassDescription.st	Tue Mar 27 10:44:14 2007 +0200
@@ -853,7 +853,7 @@
     "Created: / 15.6.1998 / 20:36:49 / cg"
 ! !
 
-!ClassDescription methodsFor:'Compatibility-VW5.4'!
+!ClassDescription methodsFor:'Compatibility-VW'!
 
 compile: aString classified: protocol attributes: attributes
     "compile some method-code"
@@ -879,6 +879,14 @@
     initializer notNil ifTrue:[
 	self shouldImplement
     ].
+!
+
+instVarIndexFor:aVariableName
+    "alias for #instVarOffsetOf: for VW compatibility."
+
+    ^ self instVarOffsetOf:aVariableName
+
+    "Created: / 27-03-2007 / 08:37:31 / cg"
 ! !
 
 !ClassDescription methodsFor:'accessing'!
@@ -4040,7 +4048,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.193 2006-11-20 11:55:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.194 2007-03-27 08:44:14 cg Exp $'
 ! !
 
 ClassDescription initialize!