--- a/UserPreferences.st	Sat Nov 05 13:49:06 2016 +0100
+++ b/UserPreferences.st	Sat Nov 05 14:04:35 2016 +0100
@@ -2674,6 +2674,30 @@
     "
 !
 
+confirmCheckinOfPrivateClasses
+    "If set, a confirmation dialog is shown when attempting to checkin a private class."
+
+    ^ self at:#confirmCheckinOfPrivateClasses ifAbsent:[true].
+
+    "
+     UserPreferences current confirmCheckinOfPrivateClasses
+     UserPreferences current confirmCheckinOfPrivateClasses:true
+     UserPreferences current confirmCheckinOfPrivateClasses:false
+    "
+!
+
+confirmCheckinOfPrivateClasses:aBoolean
+    "If set, a confirmation dialog is shown when attempting to checkin a private class."
+
+    self at:#confirmCheckinOfPrivateClasses put:aBoolean.
+
+    "
+     UserPreferences current confirmCheckinOfPrivateClasses
+     UserPreferences current confirmCheckinOfPrivateClasses:true
+     UserPreferences current confirmCheckinOfPrivateClasses:false
+    "
+!
+
 enforceCodeStyle
     "return the flag which controls enforcing a certain code style (in some browsers)"