ClassBuilder.st
branchjv
changeset 17742 3fef0ed4c2d5
parent 17736 26cfea63471d
child 17751 b2273fa8d59f
--- a/ClassBuilder.st	Sun Dec 27 19:45:23 2009 +0000
+++ b/ClassBuilder.st	Sun Dec 27 20:16:54 2009 +0000
@@ -1834,6 +1834,7 @@
                     pkg == PackageId noProjectID ifTrue:[
                         pkg := oldPkg.
                     ] ifFalse:[ 
+                        newClass setPackage:pkg.  "/ so the notification handler knows, what we are talking about
                         answer := Class classRedefinitionNotification
                                       raiseRequestWith:(oldClass -> newClass)
                                       errorString:('redefinition of class: ' , oldClass name).
@@ -2208,12 +2209,13 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassBuilder.st 10482 2009-12-04 20:30:11Z vranyj1 $'
+    ^ '$Id: ClassBuilder.st 10489 2009-12-27 20:16:54Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.87 2009/11/30 16:01:04 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.88 2009/12/11 09:27:16 cg Exp §'
 ! !
 
 
 
+