--- a/Date.st	Thu Mar 15 18:10:41 2001 +0100
+++ b/Date.st	Fri Mar 16 14:35:43 2001 +0100
@@ -398,8 +398,8 @@
     "given a day index (1..7), return the abbreviated name
      of the day"
 
-    EnvironmentChange ifTrue:[
-	self initNames
+    (DayAbbrevs isNil or:[EnvironmentChange]) ifTrue:[
+        self initNames
     ].
     ^ DayAbbrevs at:dayIndex
 
@@ -412,8 +412,8 @@
     "given a month index (1..12), return the abbreviated name
      of the month"
 
-    EnvironmentChange ifTrue:[
-	self initNames
+    (MonthAbbrevs isNil or:[EnvironmentChange]) ifTrue:[
+        self initNames
     ].
     ^ MonthAbbrevs at:monthIndex
 
@@ -466,8 +466,8 @@
      return the day-index (1 for monday; 7 for sunday).
      Return 0 for invalid day name"
 
-    EnvironmentChange ifTrue:[
-	self initNames
+    (DayNames isNil or:[EnvironmentChange]) ifTrue:[
+        self initNames
     ].
     ^ DayNames indexOf:dayName
 
@@ -678,8 +678,8 @@
 nameOfDay:dayIndex
     "given a day index (1..7), return the name of the day" 
 
-    EnvironmentChange ifTrue:[
-	self initNames
+    (DayNames isNil or:[EnvironmentChange]) ifTrue:[
+        self initNames
     ].
     ^ DayNames at:dayIndex
 
@@ -691,8 +691,8 @@
 nameOfMonth:monthIndex
     "given a month index (1..12), return the name of the month"
 
-    EnvironmentChange ifTrue:[
-	self initNames
+    (MonthNames isNil or:[EnvironmentChange]) ifTrue:[
+        self initNames
     ].
     ^ MonthNames at:monthIndex
 
@@ -1804,6 +1804,6 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.59 2001-03-15 17:03:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.60 2001-03-16 13:35:43 cg Exp $'
 ! !
 Date initialize!