--- a/Parser.st	Fri Feb 08 12:42:13 2002 +0100
+++ b/Parser.st	Fri Feb 08 15:45:55 2002 +0100
@@ -28,7 +28,7 @@
 		alreadyWarnedClassInstVarRefs localBlockVarDefPosition
 		endOfSelectorPosition startOfBlockPosition primitiveContextInfo
 		usedLocalVars modifiedLocalVars alreadyWarnedUninitializedVars
-		alreadyWarnedUnimplementedSelectors returnedValues'
+		alreadyWarnedUnimplementedSelectors returnedValues currentPackage'
 	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
 		PrevClassInstVarNames LazyCompilation ArraysAreImmutable
 		ImplicitSelfSends WarnST80Directives WarnUnusedVars FoldConstants
@@ -2008,6 +2008,10 @@
     "Modified: 8.11.1996 / 13:43:14 / cg"
 !
 
+setPackage:aPackageID
+    currentPackage := aPackageID
+!
+
 targetClass
     ^ classToCompileFor
 !
@@ -5669,6 +5673,25 @@
     "Created: 8.2.1997 / 19:37:03 / cg"
 !
 
+currentPackage
+    |pkg|
+
+    pkg := currentPackage.
+    pkg isNil ifTrue:[
+        (requestor respondsTo:#currentPackage) ifTrue:[
+            pkg := requestor currentPackage
+        ] ifFalse:[
+            pkg := Class packageQuerySignal query.
+        ].
+        currentPackage := pkg.
+    ].
+    ^ pkg
+!
+
+currentPackage:aPackageName
+    currentPackage := aPackageName.
+!
+
 currentUsedNameSpaces
     |spaces|
 
@@ -6302,6 +6325,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.324 2002-02-08 11:42:13 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.325 2002-02-08 14:45:55 cg Exp $'
 ! !
 Parser initialize!