Well, I write my last mail too fast :P

Open an OBPackageBrowserAdaptor. Now, select Traits Package. I get the  
same issue trying to open my own package loaded from MC.










Error: MessageNotUnderstood: OBClassNode>>methods
3 February 2009 9:37:05 pm

VM: Mac OS - a SmalltalkImage
Image: Squeak3.10.2 [latest update: #7179]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /Volumes/DATOS/desarrollo/Squeak/Test
Trusted Dir /foobar/tooBar/forSqueak/bogus
Untrusted Dir /Users/glpunzi/Library/Preferences/Squeak/Internet/My  
Squeak

OBClassNode(Object)>>error:
	Receiver: OBClassNode<ClienteTests>
	Arguments and temporary variables:
		aString: 	'MessageNotUnderstood: OBClassNode>>methods'
	Receiver's instance variables:
		metaNode: 	Class
#allCategory->AllMethodCategory
#categories->MethodCategory

		navigation: 	an OBDefaultEdgeNavigation
		theClass: 	ClienteTests

[] in WorldState>>displayWorldSafely: {[:err :rcvr |  errCtx :=  
thisContext.  [errCtx := errCtx sender.  [errCtx no...]}
	Arguments and temporary variables:
		aWorld: 	a PasteUpMorph(1622) [world]
		err: 	'MessageNotUnderstood: OBClassNode>>methods'
		rcvr: 	OBClassNode<ClienteTests>
		errCtx: 	OBPluggableListMorph>>iconAt:
		errMorph: 	an OBPluggableListMorph(2344)

BlockContext>>valueWithPossibleArgs:
	Receiver: [] in WorldState>>displayWorldSafely: {[:err :rcvr |   
errCtx := thisContext.  [errCtx := e...etc...
	Arguments and temporary variables:
		anArray: 	an Array('MessageNotUnderstood: OBClassNode>>methods'  
OBClassNode<Clie...etc...
	Receiver's instance variables:
		sender: 	BlockContext>>valueWithPossibleArgs:
		pc: 	121
		stackp: 	0
		nargs: 	2
		startpc: 	74
		home: 	WorldState>>displayWorldSafely:

[] in BlockContext>>ifError: {[:ex | errorHandlerBlock  
valueWithPossibleArgs: {ex description. ex receiver}]}
	Arguments and temporary variables:
		errorHandlerBlock: 	[] in WorldState>>displayWorldSafely:  
{[:err :rcvr |  errCtx...etc...
		ex: 	MessageNotUnderstood: OBClassNode>>methods


--- The full stack ---
OBClassNode(Object)>>error:
[] in WorldState>>displayWorldSafely: {[:err :rcvr |  errCtx :=  
thisContext.  [errCtx := errCtx sender.  [errCtx no...]}
BlockContext>>valueWithPossibleArgs:
[] in BlockContext>>ifError: {[:ex | errorHandlerBlock  
valueWithPossibleArgs: {ex description. ex receiver}]}
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
BlockContext>>valueWithPossibleArgs:
[] in MethodContext(ContextPart)>>handleSignal: {[(self tempAt: 2)    
valueWithPossibleArgs: {exception}]}
BlockContext>>ensure:
MethodContext(ContextPart)>>handleSignal:
MessageNotUnderstood(Exception)>>signal
OBClassNode(Object)>>doesNotUnderstand: #methods
OBClassInheritanceFilter>>icon:forNode:
[] in OBEnhancementMetaNode(OBMetaNode)>>iconForNode: {[:icon :filter  
| filter icon: icon forNode: aNode]}
[] in OrderedCollection(Collection)>>inject:into: {[:each |  
nextValue := binaryBlock value: nextValue value: each]}
OrderedCollection>>do:
OrderedCollection(Collection)>>inject:into:
OBEnhancementMetaNode(OBMetaNode)>>iconForNode:
OBClassNode(OBNode)>>icon
OBEnhancementFan(OBFan)>>iconAt:
OBList>>iconAt:
OBEnhancementColumn(OBColumn)>>iconAt:
OBPluggableListMorph>>iconAt:
OBLazyListMorph>>display:atRow:on:
OBLazyListMorph(LazyListMorph)>>drawOn:
FormCanvas(Canvas)>>draw:
FormCanvas(Canvas)>>drawMorph:
[] in OBLazyListMorph(Morph)>>fullDrawOn: {[(aCanvas isVisible: self  
bounds)   ifTrue: [aCanvas drawMorph: self].  self...]}
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
OBLazyListMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in TransformMorph>>drawSubmorphsOn: {[:m | myCanvas fullDrawMorph:  
m]}
Array(SequenceableCollection)>>reverseDo:
[] in TransformMorph>>drawSubmorphsOn: {[:myCanvas | submorphs    
reverseDo: [:m | myCanvas fullDrawMorph: m]]}
FormCanvas>>transformBy:clippingTo:during:smoothing:
TransformMorph>>drawSubmorphsOn:
[] in TransformMorph(Morph)>>fullDrawOn: {[(aCanvas isVisible: self  
bounds)   ifTrue: [aCanvas drawMorph: self].  self...]}
FormCanvas>>roundCornersOf:in:during:
FormCanvas(Canvas)>>roundCornersOf:during:
TransformMorph(Morph)>>fullDrawOn:
FormCanvas(Canvas)>>fullDraw:
FormCanvas(Canvas)>>fullDrawMorph:
[] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: {[:m | canvas  
fullDrawMorph: m]}
Array(SequenceableCollection)>>reverseDo:
[] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: {[:canvas |  
submorphs   reverseDo: [:m | canvas fullDrawMorph: m]]}
OBPluggableListMorph(Morph)>>drawSubmorphsOn:
...etc...