--- a/Smalltalk.st	Fri Oct 12 15:01:47 2001 +0200
+++ b/Smalltalk.st	Fri Oct 12 15:03:27 2001 +0200
@@ -591,6 +591,27 @@
     ].
 ! !
 
+!Smalltalk class methodsFor:'Compatibility - VW5.4'!
+
+defineClass:nameSymbol superclass:superclass indexedType:indexed private:private instanceVariableNames:instVars classInstanceVariableNames:classInstVars imports:imports category:category attributes:annotations
+    |newClass|
+
+    indexed == #none ifTrue:[
+        newClass := superclass 
+            subclass:nameSymbol 
+            instanceVariableNames:instVars
+            classVariableNames:'' 
+            poolDictionaries:'' 
+            category:category 
+            inEnvironment:self.
+        classInstVars size > 0 ifTrue:[
+            newClass class instanceVariableNames:classInstVars.
+        ].
+        ^ newClass
+    ].
+    self halt.
+! !
+
 !Smalltalk class methodsFor:'accessing'!
 
 associationAt:aKey
@@ -710,7 +731,7 @@
 includesKey:aKey
     "return true, if the key is known"
 
-    "/ aKey class == String ifTrue:[self halt].
+    aKey class == String ifTrue:[self halt].
 
 %{  /* NOCONTEXT */
     RETURN ( __GLOBAL_KEYKNOWN(aKey) );
@@ -6056,5 +6077,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.505 2001-10-08 09:21:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.506 2001-10-12 13:03:27 cg Exp $'
 ! !