--- a/AbstractSourceCodeManager.st	Mon May 11 17:51:45 1998 +0200
+++ b/AbstractSourceCodeManager.st	Wed May 13 22:41:34 1998 +0200
@@ -216,6 +216,24 @@
 
 !AbstractSourceCodeManager class methodsFor:'basic administration'!
 
+checkForExistingContainerForClass:aClass
+    |sourceInfo packageDir moduleDir classFileName|
+
+    sourceInfo := self sourceInfoOfClass:aClass.
+    sourceInfo isNil ifTrue:[
+        ('SourceCodeManager [warning]: no sourceInfo for class: ' , aClass name) errorPrintCR.
+        ^ false
+    ].
+
+    packageDir := self packageFromSourceInfo:sourceInfo.
+    moduleDir := self moduleFromSourceInfo:sourceInfo.  "/ use the modules name as CVS module
+    classFileName := self containerFromSourceInfo:sourceInfo.
+
+    ^ self checkForExistingContainerInModule:moduleDir package:packageDir container:classFileName
+
+    "Created: / 13.5.1998 / 22:35:50 / cg"
+!
+
 checkForExistingContainerInModule:moduleName package:dirName container:fileName
     "check for a container to be present"
 
@@ -1028,7 +1046,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.83 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.84 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1364,6 +1382,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.83 1997-11-15 17:00:03 cg Exp $ [cef]'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.84 1998-05-13 20:41:34 cg Exp $ [cef]'
 ! !
 AbstractSourceCodeManager initialize!