--- a/AbstractSourceCodeManager.st	Tue Sep 16 16:54:39 2014 +0200
+++ b/AbstractSourceCodeManager.st	Tue Sep 16 16:54:55 2014 +0200
@@ -2020,10 +2020,14 @@
 !AbstractSourceCodeManager class methodsFor:'source code access'!
 
 basicCheckinClass:aClass fileName:classFileName directory:packageDir module:moduleDir logMessage:logMessage force:force
-    "low level checkin of a class into the source repository. Does not deal with anz version method updates,
+    "low level checkin of a class into the source repository. Does not deal with any version method updates,
      only does the checkin, using a temporary file.
      Return true if ok, false if not."
 
+    aClass isPrivate ifTrue:[
+        self reportError:'refuse to check in private classes.'.
+        ^ false.
+    ].
     ^ self 
         withClass:aClass 
         classFileName:classFileName 
@@ -3956,15 +3960,15 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.327 2014-07-21 11:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.327 2014-07-21 11:25:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceCodeManager.st,v 1.327 2014-07-21 11:25:58 cg Exp $'
+    ^ '$Id: AbstractSourceCodeManager.st,v 1.328 2014-09-16 14:54:55 cg Exp $'
 ! !