--- a/ClassDescription.st	Fri Jun 07 14:14:51 2013 +0200
+++ b/ClassDescription.st	Fri Jun 07 14:17:54 2013 +0200
@@ -3203,13 +3203,12 @@
     "the classes documentation-method's comment, its plain
      comment or nil"
 
-    |cls m s isComment infoStream info|
+    |cls m s|
 
     cls := self theNonMetaclass.
     m := cls theMetaclass compiledMethodAt:#documentation.
     m notNil ifTrue:[
         s := m comment.
-        isComment := false.
     ] ifFalse:[
         "try comment"
         s := cls comment.
@@ -3220,7 +3219,6 @@
                 (s includes:$") ifTrue:[
                     s := s copyReplaceAll:$" with:$'.
                 ].
-                isComment := true.
                 s size > 80 ifTrue:[
                     s := s asCollectionOfSubstringsSeparatedBy:$..
                     s := s asStringCollection.
@@ -4280,11 +4278,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.237 2013-06-07 12:14:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.238 2013-06-07 12:17:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.237 2013-06-07 12:14:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.238 2013-06-07 12:17:54 cg Exp $'
 ! !