--- a/Class.st	Fri Dec 15 00:05:12 1995 +0100
+++ b/Class.st	Fri Dec 15 13:47:55 1995 +0100
@@ -264,50 +264,50 @@
     words := aString asCollectionOfWords.
 
     words notEmpty ifTrue:[
-        "/
-        "/ supported formats:
-        "/
-        "/ $-Header: pathName rev date time user state $
-        "/ $-Revision: rev $
-        "/ $-Id: fileName rev date time user state $
-        "/
-
-        ((words at:1) = '$Header:') ifTrue:[
-            nm := words at:2.
-            info at:#repositoryPathName put:nm.
-            (nm endsWith:',v') ifTrue:[
-                nm := nm copyWithoutLast:2
-            ].
-            info at:#fileName put:nm asFilename baseName.
-            (words at:3) = '$' ifFalse:[
-                info at:#revision put:(words at:3).
-                info at:#date put:(words at:4).
-                info at:#time put:(words at:5).
-                info at:#user put:(words at:6).
-                info at:#state put:(words at:7).
-            ].
-            ^ info
-        ].
-        ((words at:1) = '$Revision:') ifTrue:[
-            info at:#revision put:(words at:2).
-            ^ info
-        ].
-        ((words at:1) = '$Id:') ifTrue:[
-            info at:#fileName put:(words at:2).
-            info at:#revision put:(words at:3).
-            info at:#date put:(words at:4).
-            info at:#time put:(words at:5).
-            info at:#user put:(words at:6).
-            info at:#state put:(words at:7).
-            ^ info
-        ].
+	"/
+	"/ supported formats:
+	"/
+	"/ $-Header: pathName rev date time user state $
+	"/ $-Revision: rev $
+	"/ $-Id: fileName rev date time user state $
+	"/
+
+	((words at:1) = '$Header:') ifTrue:[
+	    nm := words at:2.
+	    info at:#repositoryPathName put:nm.
+	    (nm endsWith:',v') ifTrue:[
+		nm := nm copyWithoutLast:2
+	    ].
+	    info at:#fileName put:nm asFilename baseName.
+	    (words at:3) = '$' ifFalse:[
+		info at:#revision put:(words at:3).
+		info at:#date put:(words at:4).
+		info at:#time put:(words at:5).
+		info at:#user put:(words at:6).
+		info at:#state put:(words at:7).
+	    ].
+	    ^ info
+	].
+	((words at:1) = '$Revision:') ifTrue:[
+	    info at:#revision put:(words at:2).
+	    ^ info
+	].
+	((words at:1) = '$Id:') ifTrue:[
+	    info at:#fileName put:(words at:2).
+	    info at:#revision put:(words at:3).
+	    info at:#date put:(words at:4).
+	    info at:#time put:(words at:5).
+	    info at:#user put:(words at:6).
+	    info at:#state put:(words at:7).
+	    ^ info
+	].
     ].
 
     "/
     "/ mhmh - maybe its some other source code system
     "/
     (mgr := Smalltalk at:SourceCodeManager) notNil ifTrue:[
-        ^ mgr revisionInfoFromString:aString
+	^ mgr revisionInfoFromString:aString
     ].
     ^ nil
 
@@ -831,7 +831,7 @@
 
     info := self revisionInfo.
     info notNil ifTrue:[
-        ^ info at:#revision ifAbsent:nil
+	^ info at:#revision ifAbsent:nil
     ].
     ^ revision
 
@@ -1704,8 +1704,8 @@
      Returns the new method or nil (on failure)."
 
     ^ self compilerClass 
-        compile:code 
-        forClass:self
+	compile:code 
+	forClass:self
 
     "Modified: 13.12.1995 / 10:56:00 / cg"
 !
@@ -1717,9 +1717,9 @@
      Returns the new method or nil (on failure)."
 
     ^ self compilerClass 
-        compile:code 
-        forClass:self 
-        inCategory:category
+	compile:code 
+	forClass:self 
+	inCategory:category
 
     "Modified: 13.12.1995 / 11:02:34 / cg"
 !
@@ -1730,9 +1730,9 @@
      Returns the new method or nil (on failure)."
 
     ^ self compilerClass 
-        compile:code 
-        forClass:self 
-        notifying:requestor
+	compile:code 
+	forClass:self 
+	notifying:requestor
 
     "Modified: 13.12.1995 / 11:02:40 / cg"
 !
@@ -2098,10 +2098,10 @@
      If both are nil, all are saved. See version-method handling in
      fileOut for what this is needed."
 
-    |source sortedSelectors first privacy interrestingMethods|
+    |source sortedSelectors first privacy interestingMethods|
 
     methodArray notNil ifTrue:[
-	interrestingMethods := OrderedCollection new.
+	interestingMethods := OrderedCollection new.
 	methodArray do:[:aMethod |
 	    |wanted|
 
@@ -2115,20 +2115,20 @@
 			wanted := true
 		    ]
 		].
-		wanted ifTrue:[interrestingMethods add:aMethod].
+		wanted ifTrue:[interestingMethods add:aMethod].
 	    ]
 	].
-	interrestingMethods notEmpty ifTrue:[
+	interestingMethods notEmpty ifTrue:[
 	    first := true.
 	    privacy := nil.
 
 	    "/
 	    "/ sort by selector
 	    "/
-	    sortedSelectors := interrestingMethods collect:[:m | self selectorAtMethod:m].
-	    sortedSelectors sortWith:interrestingMethods.
-
-	    interrestingMethods do:[:aMethod |
+	    sortedSelectors := interestingMethods collect:[:m | self selectorAtMethod:m].
+	    sortedSelectors sortWith:interestingMethods.
+
+	    interestingMethods do:[:aMethod |
 		first ifFalse:[
 		    privacy ~~ aMethod privacy ifTrue:[
 			first := true.
@@ -3385,6 +3385,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.110 1995-12-13 16:19:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.111 1995-12-15 12:47:27 cg Exp $'
 ! !
 Class initialize!