--- a/BrowserView.st	Sat Sep 07 14:42:13 1996 +0200
+++ b/BrowserView.st	Mon Sep 09 18:55:51 1996 +0200
@@ -2343,6 +2343,14 @@
             ]
         ].
         info isNil ifTrue:[
+            creatingNew ifFalse:[
+                (self confirm:(resources string:'The repository already contains a container named "%3" in "%1/%2" !!\\Checkin %4 anyway ? (DANGER - be careful)'
+                         withArgs:(Array with:module with:package with:fileName with:aClass name)) withCRs)
+                    ifFalse:[
+                        ^ false
+                    ].
+            ].
+
             (self confirm:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:aClass name) withCRs)
                 ifFalse:[
                     ^ false
@@ -2422,7 +2430,7 @@
     box destroy.
     ^ false
 
-    "Modified: 10.4.1996 / 23:43:08 / cg"
+    "Modified: 9.9.1996 / 18:53:33 / cg"
 !
 
 classLoadRevision
@@ -7388,6 +7396,6 @@
 !BrowserView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.164 1996-09-07 12:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.165 1996-09-09 16:55:51 cg Exp $'
 ! !
 BrowserView initialize!