--- a/Explainer.st	Thu Sep 14 14:26:59 2006 +0200
+++ b/Explainer.st	Thu Sep 14 15:01:31 2006 +0200
@@ -910,7 +910,10 @@
         ].
         shortText ifTrue:[
             count == 1 ifTrue:[
-                msg := msg , ' ',(self fetchCommentOfMethod:(firstImplementingClass compiledMethodAt:sym))
+                cm := self fetchCommentOfMethod:(firstImplementingClass compiledMethodAt:sym).
+                cm notNil ifTrue:[
+                    msg := msg,' ',cm
+                ].
             ].
         ] ifFalse:[
             firstImplementingClass notNil ifTrue:[
@@ -932,7 +935,7 @@
 
     "Modified: / 17-06-1996 / 17:09:30 / stefan"
     "Created: / 23-03-1999 / 13:29:33 / cg"
-    "Modified: / 14-09-2006 / 14:17:10 / cg"
+    "Modified: / 14-09-2006 / 14:38:04 / cg"
 !
 
 explainSelfIn:aClass short:shortText
@@ -1201,5 +1204,5 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.76 2006-09-14 12:26:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.77 2006-09-14 13:01:31 cg Exp $'
 ! !