--- a/AbstractSourceCodeManager.st	Thu Nov 23 02:56:37 1995 +0100
+++ b/AbstractSourceCodeManager.st	Thu Nov 23 02:58:09 1995 +0100
@@ -44,7 +44,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.20 1995-11-22 20:59:18 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.21 1995-11-23 01:58:09 cg Exp $'! !
 
 !AbstractSourceCodeManager class methodsFor:'initialization'!
 
@@ -67,6 +67,25 @@
     ^ CacheDirectoryName
 !
 
+revisionAfter:aRevisionString
+    |idx s|
+
+    idx := aRevisionString lastIndexOf:$..
+    idx == 0 ifTrue:[
+	^ ((Integer readFrom:aRevisionString) + 1) printString
+    ].
+
+    ^ (aRevisionString copyTo:idx) , ((Integer readFrom:(aRevisionString copyFrom:(idx+1)))+1) printString
+
+    "
+     SourceCodeManager revisionAfter:'1.2.3.4' 
+     SourceCodeManager revisionAfter:'123'  
+     SourceCodeManager revisionAfter:'1.24'  
+    "
+
+    "Created: 20.11.1995 / 12:54:05 / cg"
+!
+
 sourceCacheDirectory
     |dir nm|
 
@@ -88,25 +107,6 @@
 
     "Created: 4.11.1995 / 19:09:12 / cg"
     "Modified: 4.11.1995 / 19:15:43 / cg"
-!
-
-revisionAfter:aRevisionString
-    |idx s|
-
-    idx := aRevisionString lastIndexOf:$..
-    idx == 0 ifTrue:[
-	^ ((Integer readFrom:aRevisionString) + 1) printString
-    ].
-
-    ^ (aRevisionString copyTo:idx) , ((Integer readFrom:(aRevisionString copyFrom:(idx+1)))+1) printString
-
-    "
-     SourceCodeManager revisionAfter:'1.2.3.4' 
-     SourceCodeManager revisionAfter:'123'  
-     SourceCodeManager revisionAfter:'1.24'  
-    "
-
-    "Created: 20.11.1995 / 12:54:05 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -250,15 +250,11 @@
 
 !AbstractSourceCodeManager class methodsFor:'source code administration'!
 
-writeRevisionLogOf:aClass to:aStream
-    "extract a classes log and append it to aStream."
+writeRevisionLogOf:cls fromRevision:rev1 toRevision:rev2 fileName:classFileName directory:packageDir module:moduleDir to:aStream
+    self subclassResponsibility.
 
-    ^ self
-	writeRevisionLogOf:aClass fromRevision:nil toRevision:nil to:aStream
-
-    "
-     SourceCodeManager writeRevisionLogOf:Array to:Transcript 
-    "
+    "Created: 15.11.1995 / 18:12:51 / cg"
+    "Modified: 20.11.1995 / 12:20:12 / cg"
 !
 
 writeRevisionLogOf:aClass fromRevision:rev1 toRevision:rev2 to:aStream
@@ -298,11 +294,14 @@
     "Modified: 20.11.1995 / 12:19:47 / cg"
 !
 
-writeRevisionLogOf:cls fromRevision:rev1 toRevision:rev2 fileName:classFileName directory:packageDir module:moduleDir to:aStream
-    self subclassResponsibility.
+writeRevisionLogOf:aClass to:aStream
+    "extract a classes log and append it to aStream."
+
+    ^ self
+	writeRevisionLogOf:aClass fromRevision:nil toRevision:nil to:aStream
 
-    "Created: 15.11.1995 / 18:12:51 / cg"
-    "Modified: 20.11.1995 / 12:20:12 / cg"
-!
+    "
+     SourceCodeManager writeRevisionLogOf:Array to:Transcript 
+    "
+! !
 
-! !