--- a/NewLauncher.st	Wed Aug 20 11:46:05 2003 +0200
+++ b/NewLauncher.st	Thu Aug 21 11:49:51 2003 +0200
@@ -3706,13 +3706,15 @@
     [:exit |
         changeSet reverseDo:[:change |
             change isMethodChange ifTrue:[
-                (changeHistory contains:[:chg | chg className = change className
-                                             and:[chg selector = change selector]])
-                ifFalse:[
-                    changeHistory add:change.
-                    changeHistory size > 15 ifTrue:[
-                        exit value:nil
-                    ]
+                change changeClass notNil ifTrue:[
+                    (changeHistory contains:[:chg | chg className = change className
+                                                 and:[chg selector = change selector]])
+                    ifFalse:[
+                        changeHistory add:change.
+                        changeHistory size > 15 ifTrue:[
+                            exit value:nil
+                        ]
+                    ].
                 ].
             ].
         ]
@@ -4301,5 +4303,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.297 2003-08-18 11:58:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.298 2003-08-21 09:49:51 cg Exp $'
 ! !