!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: version.topaz,v 1.7 2008-01-09 22:50:20 stever Exp $
!
! Description - version of kernel classes, visible at runtime
!
!=========================================================================
run

| verString |
verString := System gemVersionAt: #gsRelease .

ImageVersion at:#gsRelease put: verString.

ImageVersion at:#gsVersion put: (System gemVersionAt: #gsVersion).
ImageVersion at:#imageKind put:#server .
ImageVersion at:#gsBuildDate put: DateTime now .
ConversionStatus at: 3 put: 
  (String new addAll: 'Conversion to '; addAll: verString; addAll: ' completed'; yourself) .
^ true
%

