--- a/ProjectProblem.st	Wed Jan 17 15:29:39 2018 +0100
+++ b/ProjectProblem.st	Thu Jan 18 15:26:44 2018 +0100
@@ -2250,7 +2250,7 @@
     
     problemsOfThisKind := allProblems select:[:p | p class == self class].
     problemsOfThisKind size > 0 ifTrue:[
-        (allProblems count:[:p | p klass theNonMetaclass = myMethodsClass theNonMetaclass]) > 1 ifTrue:[    
+        (allProblems count:[:p | p klass notNil and:[p klass theNonMetaclass = myMethodsClass theNonMetaclass]]) > 1 ifTrue:[    
             ops add:{
                     ('Move unpackaged methods of <b>%1</b> to the class''s package "%2"' bindWith:myMethodsClass name with:myMethodsClass package).
                     [ self doMoveThisClassesMethodsToClassPackage ]