--- a/Class.st	Thu Dec 19 23:09:28 1996 +0100
+++ b/Class.st	Fri Dec 20 00:08:46 1996 +0100
@@ -16,7 +16,7 @@
 		CatchMethodRedefinitions MethodRedefinitionSignal
 		UpdateChangeFileQuerySignal TryLocalSourceFirst
 		ChangeFileAccessLock NameSpaceQuerySignal PackageQuerySignal
-		CreateNameSpaceQuerySignal OldMethods'
+		UsedNameSpaceQuerySignal CreateNameSpaceQuerySignal OldMethods'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -162,7 +162,12 @@
         NameSpaceQuerySignal := QuerySignal new mayProceed:true.
         NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
         NameSpaceQuerySignal notifierString:'asking for nameSpace'.
-        NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk currentNameSpace].
+        NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk defaultNameSpace].
+
+        UsedNameSpaceQuerySignal := QuerySignal new mayProceed:true.
+        UsedNameSpaceQuerySignal nameClass:self message:#usedNameSpaceQuerySignal.
+        UsedNameSpaceQuerySignal notifierString:'asking for used nameSpaced'.
+        UsedNameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:nil].
 
         CreateNameSpaceQuerySignal := QuerySignal new mayProceed:true.
         CreateNameSpaceQuerySignal nameClass:self message:#createNameSpaceQuerySignal.
@@ -182,7 +187,7 @@
         ChangeFileAccessLock := Semaphore forMutualExclusion.
     ]
 
-    "Modified: 7.11.1996 / 12:55:32 / cg"
+    "Modified: 19.12.1996 / 23:49:57 / cg"
 ! !
 
 !Class class methodsFor:'Signal constants'!
@@ -253,6 +258,15 @@
     "
 
     "Modified: 5.11.1996 / 20:08:44 / cg"
+!
+
+usedNameSpaceQuerySignal
+    "return the signal used as an upQuery for the used nameSpace.
+     Will be used when filing in code"
+
+    ^ UsedNameSpaceQuerySignal
+
+    "Created: 19.12.1996 / 23:57:27 / cg"
 ! !
 
 !Class class methodsFor:'accessing - flags'!
@@ -4503,6 +4517,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.220 1996-12-13 13:15:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.221 1996-12-19 23:08:46 cg Exp $'
 ! !
 Class initialize!