diff --git a/cad_source/zcad/uzcsysinfo.pas b/cad_source/zcad/uzcsysinfo.pas
index ad8780303..c49ec3e1f 100644
--- a/cad_source/zcad/uzcsysinfo.pas
+++ b/cad_source/zcad/uzcsysinfo.pas
@@ -52,8 +52,14 @@ function GetVersion:TmyFileVersionInfo;
   GetPartOfPath(Major,AbbreviatedName,'.');
   GetPartOfPath(Minor,AbbreviatedName,'.');
   GetPartOfPath(Micro,AbbreviatedName,'.');
-  GetPartOfPath(Release,AbbreviatedName,'-');
-  GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  result.major:=pos('-',AbbreviatedName);
+  if pos('-',AbbreviatedName)>0 then begin
+    GetPartOfPath(Release,AbbreviatedName,'-');
+    GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  end else begin
+    GetPartOfPath(Release,AbbreviatedName,' ');
+    //GetPartOfPath(CommitsAfter,AbbreviatedName,'-');
+  end;
 
   TryStrToInt(Major,result.major);
   TryStrToInt(Minor,result.Minor);