--- a/Time.st	Thu Feb 22 21:30:49 1996 +0100
+++ b/Time.st	Thu Feb 22 21:32:48 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 AbstractTime subclass:#Time
-	 instanceVariableNames:'timeEncoding'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Magnitude-General'
+	instanceVariableNames:'timeEncoding'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Magnitude-General'
 !
 
 !Time class methodsFor:'documentation'!
@@ -290,15 +290,17 @@
      depending on the setting of LanguageTerritory.
      I dont know what ST-80 does here (12-hour format ?)"
 
-    LanguageTerritory = 'usa' ifTrue:[
-	self print12HourFormatOn:aStream
+    LanguageTerritory == #us ifTrue:[
+        self print12HourFormatOn:aStream
     ] ifFalse:[
-	self print24HourFormatOn:aStream
+        self print24HourFormatOn:aStream
     ]
 
     "
      Time now printOn:Transcript. Transcript cr
     "
+
+    "Modified: 22.2.1996 / 16:58:30 / cg"
 ! !
 
 !Time methodsFor:'private'!
@@ -351,5 +353,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.23 1995-12-07 21:32:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.24 1996-02-22 20:32:48 cg Exp $'
 ! !