--- a/Explainer.st Mon Mar 18 14:38:01 2013 +0100
+++ b/Explainer.st Tue Mar 19 16:58:29 2013 +0100
@@ -420,7 +420,7 @@
|methodComment lines|
methodComment := mthd comment.
- methodComment isNil ifTrue:[^ nil].
+ methodComment isEmptyOrNil ifTrue:[^ nil].
lines := methodComment asStringCollection.
methodComment := lines first.
@@ -1459,9 +1459,10 @@
!Explainer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
! !
+