ProjectDefinition.st
changeset 12208 0b65ddcb68f2
parent 12202 99295d0c6e3f
child 12210 48e154dad1a5
--- a/ProjectDefinition.st	Sun Oct 11 11:38:29 2009 +0200
+++ b/ProjectDefinition.st	Mon Oct 12 09:47:37 2009 +0200
@@ -3962,6 +3962,10 @@
 
 !ProjectDefinition class methodsFor:'private loading'!
 
+hasSafedOverwrittenMethods
+    ^ safeForOverwrittenMethods notEmptyOrNil
+!
+
 loadAllClassesAsAutoloaded:asAutoloaded
     "load (fileIn) classes that should be present -
      install as autoloaded classes marked to be autoloaded.
@@ -4144,8 +4148,10 @@
 
         class := Smalltalk classNamed:className.
         oldMethod := class compiledMethodAt:selector.
-        oldMethod package asPackageId projectDefinitionClass
-            rememberOverwrittenMethod:oldMethod inClass:class
+        oldMethod notNil ifTrue:[
+            oldMethod package asPackageId projectDefinitionClass
+                rememberOverwrittenMethod:oldMethod inClass:class
+        ].
     ].
 !
 
@@ -4551,11 +4557,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.241 2009-10-10 14:52:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.242 2009-10-12 07:47:37 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.241 2009-10-10 14:52:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.242 2009-10-12 07:47:37 mb Exp $'
 ! !
 
 ProjectDefinition initialize!