--- a/ProjectDefinition.st	Thu Nov 22 23:17:46 2012 +0000
+++ b/ProjectDefinition.st	Fri Nov 23 10:45:42 2012 +0000
@@ -2437,11 +2437,11 @@
 
     nr := (self cvsRevision last upTo:$m) select:[:c|c isDigit].
     nr isEmptyOrNil ifTrue:[nr := '0'].
-    ^nr copyTo: 6 "/ Long number are not supported by BCC"
+    ^nr copyTo: (6 min: nr size) "/ Long number are not supported by BCC"
 
     "Created: / 18-08-2006 / 12:02:58 / cg"
     "Modified: / 30-08-2006 / 18:54:48 / cg"
-    "Modified: / 22-11-2012 / 23:16:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-11-2012 / 10:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileRevisionNr
@@ -2462,7 +2462,7 @@
 
     nr := self cvsRevision first select:[:c|c isDigit].
     nr isEmptyOrNil ifTrue:[nr := '0'].
-    ^nr copyTo: 6 "/ Long number are not supported by BCC"
+    ^nr copyTo: (6 min: nr size) "/ Long number are not supported by BCC"
 
     "
     stx_libbasic fileRevisionNr
@@ -2472,7 +2472,7 @@
 
     "Created: / 18-08-2006 / 12:02:39 / cg"
     "Modified: / 30-08-2006 / 18:54:39 / cg"
-    "Modified: / 22-11-2012 / 23:16:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-11-2012 / 10:39:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileVersion
@@ -6877,7 +6877,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ProjectDefinition.st 10867 2012-11-22 23:17:46Z vranyj1 $'
+    ^ '$Id: ProjectDefinition.st 10868 2012-11-23 10:45:42Z vranyj1 $'
 !
 
 version_CVS
@@ -6885,7 +6885,7 @@
 !
 
 version_SVN
-    ^ '$Id:: ProjectDefinition.st 10867 2012-11-22 23:17:46Z vranyj1                                                                $'
+    ^ '$Id:: ProjectDefinition.st 10868 2012-11-23 10:45:42Z vranyj1                                                                $'
 ! !
 
 ProjectDefinition initialize!