'dothis' = anAnnotatedParagraph annotation asLowercase
        ifTrue:

        [     canvas newLine.  "<----THIS LINE ADDED"

            ^ canvas command
                name: 'dothis' ;
                parameter: [  super visitAnnotatedParagraph: anAnnotatedParagraph ]
        ].

which seems better, but maybe still not the best.