--- a/ByteCodeCompiler.st	Wed Dec 06 18:38:57 1995 +0100
+++ b/ByteCodeCompiler.st	Thu Dec 07 10:38:36 1995 +0100
@@ -1794,6 +1794,10 @@
 	].
 
 	newMethod source:aString.
+	Project notNil ifTrue:[
+	    newMethod package:(Project currentPackageName)
+	].
+
 	aClass updateRevisionString.
 	aClass addChangeRecordForMethod:newMethod.
 	(silent or:[Smalltalk silentLoading == true]) ifFalse:[
@@ -1890,5 +1894,5 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.52 1995-12-06 12:41:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.53 1995-12-07 09:38:13 cg Exp $'
 ! !