--- a/Date.st	Fri Jun 20 17:28:09 1997 +0200
+++ b/Date.st	Fri Jun 20 17:29:38 1997 +0200
@@ -17,7 +17,7 @@
 	category:'Magnitude-General'
 !
 
-!Date  class methodsFor:'documentation'!
+!Date class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,7 +75,7 @@
 "
 ! !
 
-!Date  class methodsFor:'instance creation'!
+!Date class methodsFor:'instance creation'!
 
 fromDays:dayCount
     "return a new Date, given the day-number starting with 0 at 1.Jan 1901;
@@ -256,7 +256,7 @@
     "Modified: 1.7.1996 / 15:20:16 / cg"
 ! !
 
-!Date  class methodsFor:'general queries'!
+!Date class methodsFor:'general queries'!
 
 abbreviatedNameOfDay:dayIndex
     "given a day index (1..7), return the abbreviated name
@@ -519,7 +519,7 @@
     "
 ! !
 
-!Date  class methodsFor:'handling language changes'!
+!Date class methodsFor:'handling language changes'!
 
 initialize
     "check for case where Resource-classes are absent"
@@ -540,7 +540,7 @@
     "Created: 15.6.1996 / 15:19:25 / cg"
 ! !
 
-!Date  class methodsFor:'obsolete instance creation'!
+!Date class methodsFor:'obsolete instance creation'!
 
 day:day month:month year:year
     "return a new Date, given the day, month and year.
@@ -558,7 +558,7 @@
     ^ self newDay:dayInYear year:year
 ! !
 
-!Date  class methodsFor:'private'!
+!Date class methodsFor:'private'!
 
 daysInMonthIndex: monthIndex forYear: yearInteger
     "return the number of days in month monthIndex of
@@ -652,7 +652,7 @@
     "Date initNames"
 ! !
 
-!Date  class methodsFor:'private encoding'!
+!Date class methodsFor:'private encoding'!
 
 encodeYear:y month:m day:d
     "the internal encoding is stricktly private, 
@@ -661,7 +661,7 @@
     ^ (((y * 100) + m) * 100) + d
 ! !
 
-!Date  class methodsFor:'private instance creation'!
+!Date class methodsFor:'private instance creation'!
 
 fromOSTime:osTime
     "return a date, representing the date given by the operatingSystem time.
@@ -680,6 +680,16 @@
     "
 ! !
 
+!Date methodsFor:'ST80 compatibility'!
+
+shortPrintString
+    "dummy - for now"
+
+    ^ self printString
+
+    "Created: 20.6.1997 / 17:16:48 / cg"
+! !
+
 !Date methodsFor:'accessing'!
 
 abbreviatedDayName
@@ -1247,9 +1257,9 @@
     "Modified: 1.7.1996 / 15:23:12 / cg"
 ! !
 
-!Date  class methodsFor:'documentation'!
+!Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.37 1996-10-08 18:33:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.38 1997-06-20 15:29:23 cg Exp $'
 ! !
 Date initialize!

--- a/Time.st	Fri Jun 20 17:28:09 1997 +0200
+++ b/Time.st	Fri Jun 20 17:29:38 1997 +0200
@@ -17,7 +17,7 @@
 	category:'Magnitude-General'
 !
 
-!Time  class methodsFor:'documentation'!
+!Time class methodsFor:'documentation'!
 
 copyright
 "
@@ -65,7 +65,7 @@
 "
 ! !
 
-!Time  class methodsFor:'instance creation'!
+!Time class methodsFor:'instance creation'!
 
 hour:h minutes:m seconds:s
     "return an instance of Time representing the given time.
@@ -316,6 +316,14 @@
     "
 
     "Modified: 22.2.1996 / 16:58:30 / cg"
+!
+
+shortPrintString
+    "dummy - for now"
+
+    ^ self printString
+
+    "Created: 20.6.1997 / 17:17:01 / cg"
 ! !
 
 !Time methodsFor:'private'!
@@ -367,8 +375,8 @@
     timeEncoding := encoding
 ! !
 
-!Time  class methodsFor:'documentation'!
+!Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.30 1996-10-08 18:33:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.31 1997-06-20 15:29:38 cg Exp $'
 ! !