--- a/ChangesBrowser.st Mon Oct 20 11:33:18 2008 +0200
+++ b/ChangesBrowser.st Mon Oct 20 12:42:47 2008 +0200
@@ -2708,6 +2708,11 @@
changeClass isNil ifTrue:[
changeClass := self classOfChange:changeNr.
].
+ changeClass notNil ifTrue:[
+ "load unloaded class. Otherwise a class definition change
+ will create a class without methods"
+ changeClass autoload.
+ ].
].
changeNrProcessed := changeNr.
@@ -6005,5 +6010,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.380 2008-10-12 14:25:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.381 2008-10-20 10:42:47 stefan Exp $'
! !