--- a/Class.st Fri Nov 08 16:16:40 1996 +0100
+++ b/Class.st Fri Nov 08 16:27:05 1996 +0100
@@ -1663,10 +1663,15 @@
"append a class-was-checkedIn-record to the changes file"
- self addInfoRecord:('checkin ' , aClass name , ' (' , aClass revision , ')')
+ |rv|
+
+ rv := aClass revision.
+ rv isNil ifTrue:[rv := '???'].
+
+ self addInfoRecord:('checkin ' , aClass name , ' (' , rv , ')')
"Created: 18.11.1995 / 17:04:58 / cg"
- "Modified: 7.12.1995 / 23:45:01 / cg"
+ "Modified: 8.11.1996 / 16:24:00 / cg"
!
addChangeRecordForClassComment:aClass
@@ -4480,6 +4485,6 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.214 1996-11-08 14:38:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.215 1996-11-08 15:27:05 cg Exp $'
! !
Class initialize!