--- a/Class.st	Tue Nov 05 19:59:45 1996 +0100
+++ b/Class.st	Tue Nov 05 20:34:44 1996 +0100
@@ -15,7 +15,7 @@
 	classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal
 		CatchMethodRedefinitions MethodRedefinitionSignal
 		UpdateChangeFileQuerySignal TryLocalSourceFirst
-		ChangeFileAccessLock NameSpaceQuerySignal'
+		ChangeFileAccessLock NameSpaceQuerySignal PackageQuerySignal'
 	poolDictionaries:''
 	category:'Kernel-Classes'
 !
@@ -145,14 +145,24 @@
         UpdateChangeFileQuerySignal handlerBlock:[:ex | ex proceedWith:UpdatingChanges].
 
         NameSpaceQuerySignal := QuerySignal new mayProceed:true.
-        NameSpaceQuerySignal nameClass:self message:#updateChangeFileQuerySignal.
+        NameSpaceQuerySignal nameClass:self message:#nameSpaceQuerySignal.
         NameSpaceQuerySignal notifierString:'asking for nameSpace'.
         NameSpaceQuerySignal handlerBlock:[:ex | ex proceedWith:Smalltalk currentNameSpace].
 
+        PackageQuerySignal := QuerySignal new mayProceed:true.
+        PackageQuerySignal nameClass:self message:#packageQuerySignal.
+        PackageQuerySignal notifierString:'asking for package'.
+        PackageQuerySignal handlerBlock:[:ex | ex proceedWith:(Project isNil 
+                                                                    ifTrue:[
+                                                                        'no package'
+                                                                    ] ifFalse:[
+                                                                        Project currentPackageName
+                                                                    ])].
+
         ChangeFileAccessLock := Semaphore forMutualExclusion.
     ]
 
-    "Modified: 14.10.1996 / 21:00:34 / cg"
+    "Modified: 5.11.1996 / 20:08:12 / cg"
 ! !
 
 !Class class methodsFor:'Signal constants'!
@@ -181,10 +191,24 @@
     ^ NameSpaceQuerySignal
 
     "
-     Class nameSpaceQuerySignal raise
+     Transcript showCR:Class nameSpaceQuerySignal raise
     "
 
-    "Modified: 14.10.1996 / 21:01:30 / cg"
+    "Modified: 5.11.1996 / 20:08:38 / cg"
+!
+
+packageQuerySignal
+    "return the signal used as an upQuery for the current packages name.
+     Will be used when filing in code"
+
+    ^ PackageQuerySignal
+
+    "
+     Transcript showCR:Class packageQuerySignal raise
+    "
+
+    "Created: 5.11.1996 / 20:07:22 / cg"
+    "Modified: 5.11.1996 / 20:08:35 / cg"
 !
 
 updateChangeFileQuerySignal
@@ -195,10 +219,10 @@
     ^ UpdateChangeFileQuerySignal
 
     "
-     Class updateChangeFileQuerySignal raise
+     Transcript showCR:Class updateChangeFileQuerySignal raise
     "
 
-    "Modified: 14.10.1996 / 21:01:43 / cg"
+    "Modified: 5.11.1996 / 20:08:44 / cg"
 ! !
 
 !Class class methodsFor:'accessing - flags'!
@@ -4260,6 +4284,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.202 1996-11-04 22:51:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.203 1996-11-05 19:34:44 cg Exp $'
 ! !
 Class initialize!