--- a/Class.st	Tue Dec 12 20:12:59 1995 +0100
+++ b/Class.st	Tue Dec 12 23:14:53 1995 +0100
@@ -11,13 +11,13 @@
 "
 
 ClassDescription subclass:#Class
-	 instanceVariableNames:'classvars comment subclasses classFilename package revision
+	instanceVariableNames:'classvars comment subclasses classFilename package revision
 		history'
-	 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
+	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions MethodRedefinitionSignal
 		UpdateChangeFileQuerySignal'
-	 poolDictionaries:''
-	 category:'Kernel-Classes'
+	poolDictionaries:''
+	category:'Kernel-Classes'
 !
 
 !Class class methodsFor:'documentation'!
@@ -829,7 +829,7 @@
 
     info := self revisionInfo.
     info notNil ifTrue:[
-	^ info at:#revision
+        ^ info at:#revision ifAbsent:nil
     ].
     ^ revision
 
@@ -838,7 +838,7 @@
     "
 
     "Created: 11.11.1995 / 14:27:20 / cg"
-    "Modified: 7.12.1995 / 10:54:53 / cg"
+    "Modified: 12.12.1995 / 20:30:20 / cg"
 !
 
 setBinaryRevision:aString
@@ -3374,6 +3374,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.107 1995-12-12 19:12:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.108 1995-12-12 22:14:53 cg Exp $'
 ! !
 Class initialize!