Gauche > Archives > 2013/04/06

diff --git a/lib/text/info.scm b/lib/text/info.scm
index 34b3519..f32114f 100644
--- a/lib/text/info.scm
+++ b/lib/text/info.scm
@@ -145,7 +145,7 @@
     [#/File: [^,]+,  Node: ([^,]+)(,  Next: ([^,]+))?,  Prev: ([^,]+),  Up: ([^,]+)/
      (#f node #f next prev up)
      (rlet1 info-node (make <info-node>
-                       :node node :next next :prev prev :up up :file info
+                       :name node :next next :prev prev :up up :file info
                        :content (cdr part))
        (hash-table-put! (ref info 'node-table) node info-node))]
     [else #f]))