Index: lang/gauche/oldtype/trunk/src/oldtype_to
===================================================================
--- lang/gauche/oldtype/trunk/src/oldtype_to (revision 22411)
+++ lang/gauche/oldtype/trunk/src/oldtype_to (revision 22567)
@@ -175,5 +175,5 @@
        (let* (
               (sxml           (oldtype-parse input-port))
-              (sexp           (oldtype:sxml->command-list sxml)))
+              (sexp           (oldtype:sxml->command-list sxml wikiname)))
          (pretty-print-sexp sexp)))
       (else