--- a/AbstractSourceCodeManager.st	Tue Nov 21 01:32:40 2000 +0100
+++ b/AbstractSourceCodeManager.st	Tue Nov 21 19:13:00 2000 +0100
@@ -1227,11 +1227,22 @@
     "return the newest revision (as string) found in the repository.
      Return nil on failure."
 
-    |log|
+    |sourceInfo packageDir moduleDir classFileName info|
+
+    sourceInfo := self sourceInfoOfClass:aClass.
+    sourceInfo isNil ifTrue:[^ nil].
 
-    log := self revisionLogOf:aClass fromRevision:0 toRevision:0.
-    log isNil ifTrue:[^ nil].
-    ^ log at:#newestRevision ifAbsent:nil
+    packageDir := self packageFromSourceInfo:sourceInfo.
+    moduleDir := self moduleFromSourceInfo:sourceInfo.  "/ use the modules name as CVS module
+    classFileName := self containerFromSourceInfo:sourceInfo.
+
+    ^ self newestRevisionInFile:classFileName directory:packageDir module:moduleDir
+
+"/    |log|
+"/
+"/    log := self revisionLogOf:aClass fromRevision:0 toRevision:0.
+"/    log isNil ifTrue:[^ nil].
+"/    ^ log at:#newestRevision ifAbsent:nil
 
     "
      SourceCodeManager newestRevisionOf:Array       
@@ -1875,6 +1886,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.127 2000-10-31 11:05:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.128 2000-11-21 18:13:00 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!