--- a/CVSSourceCodeManager.st	Thu Oct 01 06:46:27 2015 +0100
+++ b/CVSSourceCodeManager.st	Fri Oct 02 10:46:50 2015 +0100
@@ -351,6 +351,15 @@
             ]
         ].
     ].
+!
+
+validateWorkingCopy: path
+    "Return true, if given path is a valid working 
+     copy of this manager; false otherwise."
+
+    ^ (path asFilename / 'CVS') isDirectory and:[ (path asFilename / 'CVS' / 'Root') exists ]
+
+    "Created: / 02-10-2015 / 09:59:04 / jv"
 ! !
 
 !CVSSourceCodeManager class methodsFor:'accessing'!