a better MetacelloMCVersionSpec>>currentlyLoadedClassesInVersion

[dalehenrich]

This one picks up tests in projects ... I guess that's good and bad:):

currentlyLoadedClassesInVersion
  | classes |
  classes := Set new.
  self
    projectDo: [ :projectSpec | classes addAll: projectSpec projectReference currentlyLoadedClassesInVersion ]
    packageDo: [ :packageSpec | 
      | wc |
      wc := [ packageSpec workingCopy ]
        on: Error
        do: [ :ex | ex return: nil ].
      wc ~~ nil
        ifTrue: [ classes addAll: (MetacelloPlatform current packageInfoFor: wc) classes ] ]
    groupDo: [ :ignored |  ].
  ^ classes

[krono]

I think picking up tests is ok. They're software, after all…