Please help http://code.google.com/p/pharo/issues/detail?id=1828 say that you are working on it on the site. testAnnotationPane | oldPref | oldPref := MCCodeTool showAnnotationPane. CodeHolder showAnnotationPane: false. morph := model buildWindow. self assert: (self morphsOfClass: TextMorph) size = 1. CodeHolder showAnnotationPane: true. morph := model buildWindow. self assert: (self morphsOfClass: TextMorph) size = 2. CodeHolder showAnnotationPane: oldPref