--- a/Class.st	Wed Mar 05 16:42:40 1997 +0100
+++ b/Class.st	Wed Mar 05 17:07:22 1997 +0100
@@ -786,6 +786,12 @@
     "
 !
 
+environment
+    "return the namespace I am contained in; ST-80 compatible name"
+
+    ^ self nameSpace
+!
+
 nameSpace
     "return the namespace I am contained in;
      For private or anonymous classes, nil is returned -
@@ -4888,6 +4894,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.257 1997-03-03 12:46:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.258 1997-03-05 16:07:22 ca Exp $'
 ! !
 Class initialize!