--- a/Class.st	Mon Jul 01 21:32:01 1996 +0200
+++ b/Class.st	Mon Jul 01 21:33:50 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 12-jun-1996 at 11:55:31'                   !
-
 ClassDescription subclass:#Class
 	instanceVariableNames:'classvars comment subclasses classFilename package revision
 		history'
@@ -23,7 +21,7 @@
 	category:'Kernel-Classes'
 !
 
-!Class class methodsFor:'documentation'!
+!Class  class methodsFor:'documentation'!
 
 copyright
 "
@@ -119,7 +117,7 @@
 "
 ! !
 
-!Class class methodsFor:'initialization'!
+!Class  class methodsFor:'initialization'!
 
 initialize
     "the classvariable 'UpdatingChanges' controls if changes are put
@@ -152,7 +150,7 @@
     "Modified: 21.3.1996 / 16:31:30 / cg"
 ! !
 
-!Class class methodsFor:'Signal constants'!
+!Class  class methodsFor:'Signal constants'!
 
 fileOutErrorSignal
     "return the signal raised when an error occurs while fileing out.
@@ -180,7 +178,7 @@
 
 ! !
 
-!Class class methodsFor:'accessing - flags'!
+!Class  class methodsFor:'accessing - flags'!
 
 catchMethodRedefinitions
     "return the redefinition catching flag."
@@ -246,7 +244,7 @@
     ^ UpdatingChanges
 ! !
 
-!Class class methodsFor:'enumeration '!
+!Class  class methodsFor:'enumeration '!
 
 allClassesInCategory:aCategory do:aBlock
     "evaluate aBlock for all classes in aCategory;
@@ -284,7 +282,7 @@
     classes do:aBlock
 ! !
 
-!Class class methodsFor:'helpers'!
+!Class  class methodsFor:'helpers'!
 
 revisionInfoFromString:aString
     "return a dictionary filled with revision info.
@@ -350,7 +348,7 @@
     "Modified: 13.12.1995 / 17:11:28 / cg"
 ! !
 
-!Class class methodsFor:'queries'!
+!Class  class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -2853,8 +2851,10 @@
     "append a method-remove-record to aStream"
 
     self printClassNameOn:aStream.
-    aStream nextPutAll:(' removeSelector:#' , aSelector).
+    aStream nextPutAll:(' removeSelector:' , aSelector asSymbol storeString).
     aStream nextPutChunkSeparator.
+
+    "Modified: 1.7.1996 / 21:27:55 / cg"
 !
 
 addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream
@@ -3934,9 +3934,9 @@
 	changed:true 
 ! !
 
-!Class class methodsFor:'documentation'!
+!Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.160 1996-06-12 22:10:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.161 1996-07-01 19:33:50 cg Exp $'
 ! !
 Class initialize!