--- a/ClassDefinitionChange.st	Thu Nov 16 14:11:58 2006 +0100
+++ b/ClassDefinitionChange.st	Mon Nov 20 12:36:52 2006 +0100
@@ -307,19 +307,24 @@
             "/ cannot be private
             private := false
         ] ifTrue:[
-            (self changeClass notNil
-            and:[self changeClass isLoaded not]) ifTrue:[
-                "/ cannot be private
-                private := false
+            source isNil ifTrue:[^ false ].
+            (source includesString:'private') ifFalse:[
+                private := false.
             ] ifTrue:[
-                self setupFromSource.
+                (self changeClass notNil
+                and:[self changeClass isLoaded not]) ifTrue:[
+                    "/ cannot be private
+                    private := false
+                ] ifTrue:[
+                    self setupFromSource.
+                ].
             ].
         ].
     ].
     ^ private
 
     "Created: / 11-10-2006 / 14:19:03 / cg"
-    "Modified: / 13-11-2006 / 17:04:32 / cg"
+    "Modified: / 16-11-2006 / 16:34:19 / cg"
 !
 
 owningClassName
@@ -419,5 +424,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.44 2006-11-13 16:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.45 2006-11-20 11:36:52 cg Exp $'
 ! !