--- a/ObjectFileHandle.st	Tue May 11 13:41:30 2010 +0200
+++ b/ObjectFileHandle.st	Wed May 12 12:51:47 2010 +0200
@@ -231,10 +231,12 @@
     |method|
 
     self isClassLibHandle ifTrue:[
-        "/ remove the classes ...
+        "/ remove the classes (meta- and private classes are removed as a side effect)...
         Class withoutUpdatingChangesDo:[
             self classes do:[:eachClass |
-                (eachClass notNil and:[eachClass isMeta not]) ifTrue:[
+                (eachClass notNil 
+                 and:[eachClass isMeta not
+                 and:[eachClass isPrivate not]]) ifTrue:[
                     eachClass removeFromSystem.
                 ]
             ]
@@ -509,9 +511,9 @@
 !ObjectFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.38 2010-04-16 17:34:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.39 2010-05-12 10:51:47 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.38 2010-04-16 17:34:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.39 2010-05-12 10:51:47 stefan Exp $'
 ! !