--- a/Class.st	Thu Jan 15 16:47:19 2004 +0100
+++ b/Class.st	Fri Jan 23 16:55:51 2004 +0100
@@ -1238,35 +1238,35 @@
     |nm newClass|
 
     self wasAutoloaded ifFalse:[
-	"
-	 can it be done ?
-	 (all of my methods must have a source)
-	"
-	self instAndClassSelectorsAndMethodsDo:[:sel :aMethod |
-	    aMethod source isNil ifTrue:[^false].
-	    aMethod hasPrimitiveCode ifTrue:[^ false].
-	].
+        "
+         can it be done ?
+         (all of my methods must have a source)
+        "
+        self instAndClassSelectorsAndMethodsDo:[:sel :aMethod |
+            aMethod source isNil ifTrue:[^false].
+            aMethod hasPrimitiveCode ifTrue:[^ false].
+        ].
     ].
 
     "/ cannot unload, if non-autoloaded subclasses exist ...
     self allSubclassesDo:[:aClass |
-	aClass wasAutoloaded ifFalse:[
-	    aClass isPrivate ifFalse:[
-		self warn:('cannot unload ' , self name , ' (' , aClass name , ' requires it').
-		^ self.
-	    ]
-	]
+        aClass wasAutoloaded ifFalse:[
+            aClass isPrivate ifFalse:[
+                self warn:('cannot unload ' , self name , ' (' , aClass name , ' requires it)').
+                ^ false.
+            ]
+        ]
     ].
 
     self allSubclassesDo:[:aClass |
-	aClass wasAutoloaded ifTrue:[
-	    aClass unload
-	] ifFalse:[
-	    aClass removeFromSystem.
-	]
+        aClass wasAutoloaded ifTrue:[
+            aClass unload
+        ] ifFalse:[
+            aClass removeFromSystem.
+        ]
     ].
     self privateClasses do:[:aClass |
-	aClass removeFromSystem.
+        aClass removeFromSystem.
     ].
     Transcript showCR:'unloading ' , name , ' ...'.
 
@@ -1278,7 +1278,7 @@
     ObjectMemory flushMethodCache.
     newClass := Autoload addClass:nm inCategory:category.
     newClass notNil ifTrue:[
-	newClass package:package
+        newClass package:package
     ].
     Smalltalk flushCachedClasses.
     ^ true
@@ -4810,5 +4810,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.451 2003-11-18 09:07:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.452 2004-01-23 15:55:51 penk Exp $'
 ! !