--- a/SourceCodeManagerUtilities.st	Tue Feb 26 14:07:29 2002 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Feb 28 17:36:28 2002 +0100
@@ -608,7 +608,9 @@
      If the argument, aLogMessageOrNil isNil, ask interactively for log-message."
 
     ^ self
-        checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil withCheck:true
+        checkinClasses:aCollectionOfClasses 
+        withLog:aLogMessageOrNil 
+        withCheck:(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true)
 !
 
 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil withCheck:doCheckClasses
@@ -2034,5 +2036,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.78 2002-02-20 11:02:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.79 2002-02-28 16:36:28 cg Exp $'
 ! !