--- a/VersionInfo.st	Tue Feb 03 17:33:21 2015 +0100
+++ b/VersionInfo.st	Tue Feb 03 18:51:15 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#VersionInfo
 	instanceVariableNames:'revision binaryRevision user date time fileName'
 	classVariableNames:''
@@ -137,6 +139,34 @@
     "Created: / 22-10-2008 / 20:48:08 / cg"
 !
 
+majorVersion
+    |v|
+
+    v := self revision.
+    v notEmptyOrNil ifTrue:[
+        ^ v upTo:$.
+    ].
+    ^ nil
+
+    "
+     Array revisionInfo majorVersion
+    "
+!
+
+minorVersion
+    |v|
+
+    v := self revision.
+    v notEmptyOrNil ifTrue:[
+        ^ v copyFrom:(v indexOf:$.)+1
+    ].
+    ^ nil
+
+    "
+     Array revisionInfo minorVersion
+    "
+!
+
 repositoryPathName
     "raise an error: must be redefined in concrete subclass(es)"
 
@@ -198,10 +228,10 @@
 !VersionInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.9 2014-11-29 02:05:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.10 2015-02-03 17:51:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.9 2014-11-29 02:05:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VersionInfo.st,v 1.10 2015-02-03 17:51:15 cg Exp $'
 ! !