--- a/AbstractSourceCodeManager.st	Sat Nov 29 03:05:30 2014 +0100
+++ b/AbstractSourceCodeManager.st	Sat Nov 29 03:06:15 2014 +0100
@@ -1686,6 +1686,12 @@
     "Created: / 19-01-2012 / 10:39:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+initialRevisionString
+    "redefinable in subclasses"
+
+    ^ '1.0'
+!
+
 isContainerBased
     "true, if the SCM uses some kind of source container (,v files).
      False, if it is like a database or filesystem."
@@ -2105,10 +2111,10 @@
                 force ifTrue:[
                     revision := self newestRevisionInFile:classFileName directory:packageDir module:moduleDir.
                     revision isNil ifTrue:[
-                        revision := '1.0'   "/ initial checkin
+                        revision := self initialRevisionString   "/ initial checkin
                     ].
                 ] ifFalse:[
-                    revision := '1.0'   "/ initial checkin
+                    revision := self initialRevisionString   "/ initial checkin
                 ].
                 answer := #create.
 "/                answer := OptionBox 
@@ -3978,15 +3984,15 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.334 2014-11-28 19:39:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.335 2014-11-29 02:06:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.334 2014-11-28 19:39:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.335 2014-11-29 02:06:15 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceCodeManager.st,v 1.334 2014-11-28 19:39:13 cg Exp $'
+    ^ '$Id: AbstractSourceCodeManager.st,v 1.335 2014-11-29 02:06:15 cg Exp $'
 ! !