--- a/Class.st	Thu May 12 04:07:15 1994 +0200
+++ b/Class.st	Tue May 17 12:09:46 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.11 1994-03-30 09:35:09 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.12 1994-05-17 10:06:53 claus Exp $
 written Spring 89 by claus
 '!
 
@@ -504,15 +504,15 @@
 
     index := selectors identityIndexOf:newSelector startingAt:1.
     (index == 0) ifTrue:[
-	"
-	 a new selector
-	"
+        "
+         a new selector
+        "
         newSelectorArray := selectors copyWith:newSelector.
         newMethodArray := methods copyWith:newMethod.
         "
-	 keep a reference so they wont go away ...
-	 mhmh: this is no longer needed - try without
-	"
+         keep a reference so they wont go away ...
+         mhmh: this is no longer needed - try without
+        "
         oldSelectorArray := selectors.
         oldMethodArray := methods.
         selectors := newSelectorArray.
@@ -541,7 +541,7 @@
 "
     problem: this is slower; since looking for all subclasses is (currently)
              a bit slow :-(
-	     We need the hasSubclasses-info bit in Behavior; now
+             We need the hasSubclasses-info bit in Behavior; now
 
     self withAllSubclassesDo:[:aClass |
         ObjectMemory flushInlineCachesFor:aClass withArgs:nargs.
@@ -987,7 +987,8 @@
 
     "take care of nil-superclass"
     superclass isNil ifTrue:[
-        line := 'Object "nil"'
+        line := 'Object "nil"'.
+        line := 'nil'
     ] ifFalse:[
         line := (superclass name)
     ].
@@ -1176,6 +1177,7 @@
     |aStream fileName project|
 
     fileName := name , '-' , aCategory , '.st'.
+    fileName replaceAll:(Character space) by:$_.
     Project notNil ifTrue:[
         project := Project current.
         project notNil ifTrue:[