[Moose-dev] adding a class to a model?

Hi! Maybe I am confused with something. Why the following expression return 2 and not 1? -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | model importTask importer | model := MooseModel new. model sourceLanguage: ( FAMIXSmalltalkSourceLanguage new ). importTask := MooseImportClassesTask new. importTask importerClass: SmalltalkImporter. importTask importingContext: (MooseImportingContext new importClass ; importAttribute ; importMethod ; mergeClassAndMetaclass ; yourself). importTask addClass: LANNode. importer := importTask run. model addAll: importer classes. (model allClasses reject: #isStub) size -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Apparently, LANNode is twice in the model. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.