aHelpTopic subtopics do:[:ht | |methodsource method title content |

      (ht key asLowercase) = (ht key)

            ifTrue:[

                  method := ht key  .

                  title :=  ht title surroundedBySingleQuotes.

                  content :=  (String streamContents:	[ : stream |	 (ht contents) printAsLiteralOn: stream]).

                  Transcript show: content; cr.

                  methodsource := methodTemplate format: (Array with: method with: title  with: content ).

                  (Smalltalk at: newclassname) class compile: methodsource.

]].




finally got it to compile.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210912/00745d1a/attachment.html>