--- a/ClassItem.st	Fri Jan 14 15:08:42 2000 +0100
+++ b/ClassItem.st	Fri Jan 14 15:09:49 2000 +0100
@@ -128,13 +128,12 @@
 
 computeRevisions
 
-    |theClass theSourceCodeManager|
+    |theClass theSourceCodeManager theRevisionLog|
 
     theClass := self myClass. 
-    theSourceCodeManager:=theClass sourceCodeManager.
-    self setRevisions:(theSourceCodeManager revisionLogOf:theClass)
-
-
+    (theSourceCodeManager := theClass sourceCodeManager) isNil
+        ifFalse:[theRevisionLog := theSourceCodeManager revisionLogOf:theClass].
+    self setRevisions:theRevisionLog
 !
 
 hasChildren
@@ -216,5 +215,5 @@
 !ClassItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassItem.st,v 1.3 2000-01-14 10:51:00 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassItem.st,v 1.4 2000-01-14 14:09:49 ps Exp $'
 ! !