Index: /lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua
===================================================================
--- /lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua (revision 23038)
+++ /lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua (revision 26422)
@@ -395,5 +395,5 @@
                          (map/
                           (lambda (line)
-                            (pre/ (@/ (class "comment")) line))
+                            (p/ (@/ (class "comment")) line))
                           (string-split 
                            (uri-decode-string (cadr arg))