diff -r a108d3a2c610 -r 3fc7d2f54d20 Class.st
--- a/Class.st	Mon Nov 04 15:47:11 2002 +0100
+++ b/Class.st	Mon Nov 04 15:51:17 2002 +0100
@@ -15,7 +15,8 @@
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
 		revision primitiveSpec environment signature hook'
-	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE'
+	classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
+		DefaultCategoryForDolphin'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -260,6 +261,44 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+!Class methodsFor:'Compatibility - Dolphin'!
+
+defaultCategoryForDolphinClasses
+    ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
+!
+
+subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames
+    "{ Pragma: +optSpace }"
+
+    "this method allows fileIn of Dolphin classes "
+
+    ^ self subclass:t 
+           instanceVariableNames:f
+           classVariableNames:d
+           poolDictionaries:s
+           category:(self defaultCategoryForDolphinClasses)
+           classInstanceVariableNames:classInstanceVariableNames
+
+    "Modified: / 15.6.1998 / 21:31:34 / cg"
+    "Modified: / 18.3.1999 / 18:16:11 / stefan"
+!
+
+variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames
+    "{ Pragma: +optSpace }"
+
+    "this method allows fileIn of Dolphin classes "
+
+    ^ self variableSubclass:t 
+           instanceVariableNames:f
+           classVariableNames:d
+           poolDictionaries:s
+           category:(self defaultCategoryForDolphinClasses)
+           classInstanceVariableNames:classInstanceVariableNames
+
+    "Modified: / 15.6.1998 / 21:31:34 / cg"
+    "Modified: / 18.3.1999 / 18:16:11 / stefan"
+! !
+
 !Class methodsFor:'Compatibility - ST/V and V''Age'!
 
 defaultCategoryForSTVorVAGEClasses
@@ -1362,7 +1401,7 @@
 
     newClass := cls class
             name:name asSymbol
-            in:environment
+            inEnvironment:environment
             subclassOf:cls
             instanceVariableNames:instvars
             variable:false
@@ -4727,5 +4766,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.418 2002-09-17 10:27:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.419 2002-11-04 14:51:17 cg Exp $'
 ! !