!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: convmetaclassfixup.topaz,v 1.4 2008-01-09 22:50:09 stever Exp $h
!
! Description: 
!   Fix up the old Metaclasses contained in the current (SystemUser's)
!   SymbolList so that they have the new method dictionaries and such.
!
!   Used in repository conversion only.
!=========================================================================

run
| symList |
symList := System myUserProfile symbolList.

1 to: symList size do: [ :i | | aSymDict |
  aSymDict := symList at: i.
  aSymDict valuesDo: [ :aValue | | aCandidate |
    aCandidate := aValue _class.
    ((aCandidate _class) == Metaclass)
      ifTrue: [aCandidate convertTo5].
      ].
  ].
^ true
%
