To fix it, as Göran said in irc, in:

DecentReviewerNotepad>>send

change: self morph allMorphsDo: [ :aMorph | (aMorph respondsTo: #accept) 
ifTrue: [aMorph accept]]

by: self allMorphsDo: [ :aMorph | (aMorph respondsTo: #accept) ifTrue: 
[aMorph accept]].

(Remove the morph word).

gsa.

> When I press the button Send, to post a review from Reviewer Notepad I 
> get the error of the subject.
> 
> I've installed BFAV with the proper install package.
> 
> Attached is the log.
> 
> Thanks.
> gsa.
> 
> 
> ------------------------------------------------------------------------
> 
> MessageNotUnderstood: MessageNotUnderstood>>allMorphsDo:
> 29 July 2004 7:50:01 am
> 
> VM: Win32 - a SmalltalkImage
> Image: Squeak3.7gamma [latest update: #5978]
> 
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir C:\Documents and Settings\garduino\Mis documentos\gsa\Squeak\Squeak37Gamma
> Trusted Dir C:\Documents and Settings\garduino\Mis documentos\gsa\Squeak\Squeak37Gamma\garduino
> Untrusted Dir C:\My Squeak\garduino
> 
> MessageNotUnderstood(Object)>>doesNotUnderstand: #allMorphsDo:
> 	Receiver: MessageNotUnderstood: ReviewerPost>>morph
> 	Arguments and temporary variables: 
> 		aMessage: 	allMorphsDo: [] in DecentReviewerNotePad>>send {[:aMorph | (aMorph re...etc...
> 	Receiver's instance variables: 
> 		messageText: 	nil
> 		tag: 	nil
> 		signalContext: 	MessageNotUnderstood(Exception)>>signal
> 		handlerContext: 	BlockContext>>on:do:
> 		outerContext: 	nil
> 		message: 	morph
> 		receiver: 	SimpleHierarchicalListMorph does not understand #getCurrentSelectionI...etc...
> 
> DecentReviewerNotePad>>send
> 	Receiver: a DecentReviewerNotePad(3266)
> 	Arguments and temporary variables: 
> 		confirm: 	nil
> 		mailMsg: 	nil
> 		aMorph: 	nil
> 		updateNum: 	nil
> 		err: 	nil
> 	Receiver's instance variables: 
> 		bounds: 	51 at 25 corner: 848 at 622
> 		owner: 	a PasteUpMorph(1622) [world]
> 		submorphs: 	#(an AlignmentMorph(2028) an AlignmentMorph(2445) an AlignmentMorph(...etc...
> 		fullBounds: 	51 at 25 corner: 848 at 622
> 		color: 	Color white
> 		extension: 	a MorphExtension (2750) [other:  (cornerStyle -> #rounded) (layoutPr...etc...
> 		borderWidth: 	2
> 		borderColor: 	(Color r: 0.0 g: 0.452 b: 0.677)
> 		reviewerPost: 	SimpleHierarchicalListMorph does not understand #getCurrentSelect...etc...
> 
> PluggableButtonMorph>>performAction
> 	Receiver: a PluggableButtonMorph(3707)
> 	Arguments and temporary variables: 
> 
> 	Receiver's instance variables: 
> 		bounds: 	583 at 30 corner: 640 at 54
> 		owner: 	an AlignmentMorph(2028)
> 		submorphs: 	#(an AlignmentMorph(1581))
> 		fullBounds: 	583 at 30 corner: 640 at 54
> 		color: 	(Color r: 0.0 g: 0.84 b: 0.0)
> 		extension: 	a MorphExtension (79) [balloonText]  [other:  (layoutPolicy -> a Tab...etc...
> 		borderWidth: 	1
> 		borderColor: 	#raised
> 		model: 	a DecentReviewerNotePad(3266)
> 		label: 	a StringMorph(1420)' Send '
> 		getStateSelector: 	nil
> 		actionSelector: 	#send
> 		getLabelSelector: 	nil
> 		getMenuSelector: 	nil
> 		shortcutCharacter: 	nil
> 		askBeforeChanging: 	false
> 		triggerOnMouseDown: 	false
> 		offColor: 	(Color r: 0.0 g: 0.84 b: 0.0)
> 		onColor: 	(Color r: 0.0 g: 0.84 b: 0.0)
> 		feedbackColor: 	Color red
> 		showSelectionFeedback: 	false
> 		allButtons: 	#(a PluggableButtonMorph(1075) a PluggableButtonMorph(582) a Plugga...etc...
> 		arguments: 	nil
> 		argumentsProvider: 	nil
> 		argumentsSelector: 	nil
> 
> [] in PluggableButtonMorph>>mouseUp: {[:m | (m containsPoint: evt cursorPoint)   ifTrue: [m performAction]]}
> 	Arguments and temporary variables: 
> 		evt: 	[613 at 44 mouseUp 4898109]
> 		m: 	a PluggableButtonMorph(3707)
> 
> 
> --- The full stack ---
> MessageNotUnderstood(Object)>>doesNotUnderstand: #allMorphsDo:
> DecentReviewerNotePad>>send
> PluggableButtonMorph>>performAction
> [] in PluggableButtonMorph>>mouseUp: {[:m | (m containsPoint: evt cursorPoint)   ifTrue: [m performAction]]}
>  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Array(SequenceableCollection)>>do:
> PluggableButtonMorph>>mouseUp:
> PluggableButtonMorph(Morph)>>handleMouseUp:
> MouseButtonEvent>>sentTo:
> PluggableButtonMorph(Morph)>>handleEvent:
> PluggableButtonMorph(Morph)>>handleFocusEvent:
> [] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent := anEvent.  result := focusHolder     han...]}
> [] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
> BlockContext>>on:do:
> PasteUpMorph>>becomeActiveDuring:
> HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h processEvents.  capturingGesture := capturingGest...]}
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> PasteUpMorph>>doOneCycle
> [] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor yield.  false] whileFalse.  nil]}
> [] in BlockContext>>newProcess {[self value.  Processor terminateActive]}
> 
> 
> ------------------------------------------------------------------------
> 
>