[Help-smalltalk] [PATCH] Fix HTML class in Publish.st

[parasti]

Hello,

Attached is a tiny patch that fixes two issues with the
ClassPublisher.HTML class in examples/Publish.st:  a missing period and
HTML being escaped.

Best,
Jānis

--- orig/examples/Publish.st    2006-02-05 20:41:23.000000000 +0200
+++ mod/examples/Publish.st     2007-03-17 19:15:08.000000000 +0200
@@ -862,7 +862,7 @@
        fileName := (each nameIn: Namespace current).
 
        ('writing documentation into ', fileName, '.htm') displayNl.
-       self publish: each onFile: fileName, '.htm'
+       self publish: each onFile: fileName, '.htm'.
        aFileStream
            nextPutAll: ('<A HREF="%1.htm">%1</A>' bindWith: fileName);
            nl.
@@ -979,7 +979,7 @@
        nextPutAllText: self classCategory; nl;
        nextPutAll: '<BR>Superclass: ';
        nextPutAllText: self superclassName;
-       nextPutAllText: '</B><DD>'; nl;
+       nextPutAll: '</B><DD>'; nl;
        nextPutAllText: self classComment;
        nl; nextPutAll: '</DL><P><A NAME="top"><H2>Method category 
index</H2></A>';
        nl