--- a/SourceCodeManagerUtilities.st	Fri Jun 20 11:49:54 2008 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Jun 23 17:53:05 2008 +0200
@@ -1091,10 +1091,12 @@
             "/    that subclass is lost !!
             changedClassDefinitions do:[:eachChangeArr | 
                 "when loading, remove the classes first"
-                 |cHere cls| 
-                 cHere := eachChangeArr at:1.
-                 cls := cHere changeClass.
-                 Smalltalk removeKey:(cls name).
+                |cHere cls| 
+                cHere := eachChangeArr at:1.
+                cls := cHere changeClass.
+                cls notNil ifTrue:[
+                   Smalltalk removeKey:(cls name).
+                ]
             ].
 
             changedClassDefinitions do:[:eachChangeArr | "apply this change (go to rep-version)"
@@ -2915,5 +2917,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.167 2008-06-20 09:49:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.168 2008-06-23 15:53:05 stefan Exp $'
 ! !