 M: f topic>filename* drop \ f topic>filename* ;
 
 : topic>filename ( topic -- filename )
-    topic>filename* dup [
+    topic>filename* [
         [
             % "-" %
             dup array?

        { recent-words f }
        { recent-articles f }
        { recent-vocabs f }
    } [ (generate-help-files) ] with-variables ;

: generate-help ( -- )
    "docs" cache-file

            [ escape-filename ]
            if % ".html" %
        ] "" make
    ] [ drop f ] if* ;

M: topic url-of topic>filename ;

