--- 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!