Codeblock hasCaption is not in sync with caption definition

[Ducasse]

caption
	^ caption
		ifNil: [ 
			caption := self
				parameters at: 'caption'
				ifPresent: [ :string | (PRDocument parser parse: string) children first ]
				ifAbsent: [ PRParagraph with: (PRText content: '') ] ]

hasCaption
	^ self parameters at: 'caption' 
                      ifPresent: [ :param | param isEmptyOrNil not ] 
                      ifAbsent: [ false ]

param isEmptyOrNil is wrong because the previous method shows that have a PRParagraph