--- a/SourceCodeManagerUtilities.st	Wed Sep 27 16:03:39 2000 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Oct 06 13:04:07 2000 +0200
@@ -345,6 +345,13 @@
     "check a class into the source repository.
      If the argument, aLogMessageOrNil isNil, ask interactively for log-message."
 
+    ^ self checkinClass:aClass withLog:aLogMessageOrNil withCheck:true
+!
+
+checkinClass:aClass withLog:aLogMessageOrNil withCheck:doCheckClass
+    "check a class into the source repository.
+     If the argument, aLogMessageOrNil isNil, ask interactively for log-message."
+
     |logMessage info mgr pri resources|
 
     aClass isLoaded ifFalse:[
@@ -402,9 +409,11 @@
             ]
         ].
 
-        "/ check if the class contains halts, error-sends etc.
-        (self checkAndWarnAboutBadMessagesInClass:aClass) ifFalse:[
-            ^ false
+        doCheckClass ifTrue:[
+            "/ check if the class contains halts, error-sends etc.
+            (self checkAndWarnAboutBadMessagesInClass:aClass) ifFalse:[
+                ^ false
+            ].
         ].
 
         freshCreated ifFalse:[
@@ -1252,5 +1261,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.21 2000-09-27 14:03:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.22 2000-10-06 11:04:07 cg Exp $'
 ! !