--- a/ClassDescription.st	Mon Jan 17 12:28:05 2000 +0100
+++ b/ClassDescription.st	Tue Jan 18 10:54:46 2000 +0100
@@ -33,14 +33,14 @@
 	privateIn:ClassDescription
 !
 
-ClassDescription::PackageRedefinition subclass:#MethodRedefinitionNotification
+ClassDescription::PackageRedefinition subclass:#ClassRedefinitionNotification
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ClassDescription
 !
 
-ClassDescription::PackageRedefinition subclass:#ClassRedefinitionNotification
+ClassDescription::PackageRedefinition subclass:#MethodRedefinitionNotification
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -1633,25 +1633,26 @@
     fileName := (self name , '-' , aCategory , '.st') asFilename.
     fileName makeLegalFilename.
 
-    "
-     this test allows a smalltalk to be built without Projects/ChangeSets
-    "
+    "/
+    "/ this test allows a smalltalk to be built without Projects/ChangeSets
+    "/
     Project notNil ifTrue:[
-	fileName := Project currentProjectDirectory asFilename construct:(fileName name).
+        fileName := Project currentProjectDirectory asFilename construct:(fileName name).
     ].
 
-    "
-     if file exists, save original in a .sav file
-    "
+    "/
+    "/ if the file exists, save original in a .sav file
+    "/
     fileName exists ifTrue:[
-	fileName copyTo:(fileName withSuffix:'sav')
+        fileName copyTo:(fileName withSuffix:'sav')
     ].
     aStream := FileStream newFileNamed:fileName.
     aStream isNil ifTrue:[
-	^ FileOutErrorSignal 
-		raiseRequestWith:fileName
-		errorString:('cannot create file:', fileName pathName)
+        ^ FileOutErrorSignal 
+                raiseRequestWith:fileName
+                errorString:('cannot create file:', fileName pathName)
     ].
+
     self fileOutCategory:aCategory on:aStream.
     aStream close
 
@@ -1779,7 +1780,12 @@
 fileOutCategory:aCategory on:aStream
     "file out all methods belonging to aCategory, aString onto aStream"
 
-    self fileOutCategory:aCategory except:nil only:nil methodFilter:nil on:aStream
+    "/
+    "/ must use the classes full name
+    "/
+    Class fileOutNameSpaceQuerySignal answer:true do:[
+        self fileOutCategory:aCategory except:nil only:nil methodFilter:nil on:aStream
+    ]
 
     "Created: 1.4.1997 / 16:04:44 / stefan"
 !
@@ -3528,21 +3534,21 @@
 
 ! !
 
+!ClassDescription::ClassRedefinitionNotification methodsFor:'queries'!
+
+description
+    ^ 'attempt to redefine class from different package'
+! !
+
 !ClassDescription::MethodRedefinitionNotification methodsFor:'queries'!
 
 description
     ^ 'attempt to redefine method from different package'
 ! !
 
-!ClassDescription::ClassRedefinitionNotification methodsFor:'queries'!
-
-description
-    ^ 'attempt to redefine class from different package'
-! !
-
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.93 2000-01-17 11:16:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.94 2000-01-18 09:54:46 cg Exp $'
 ! !
 ClassDescription initialize!