diff --git a/board.l b/board.l
index be5c0b4..5df74cd 100755
--- a/board.l
+++ b/board.l
@@ -290,7 +290,7 @@
   (set-text-attribute (point)
              (progn
            ;(insert (format nil (format nil "~~~D@A" *board-title-width*) title))
-           (insert (format nil "~V@A" *board-title-width* title))
+           (insert (format nil "~VA" *board-title-width* title))
            (point))
              'title
              :foreground *board-fgcolor-title*
@@ -300,7 +300,7 @@
   ;(insert (format nil (format nil "~~~D@A " width) name))
   (set-text-attribute (point)
              (progn
-           (insert (format nil "~6A" (format nil "(~3A)" num)))
+           (insert (format nil "~6@A" (format nil "(~3@A)" num)))
            (point))
              'num
              :foreground *board-fgcolor-num*
@@ -309,7 +309,7 @@
   )
   (set-text-attribute (point)
              (progn
-           (insert (format nil "  ~V@A" *board-name-width* (format nil "[~A]" name)))
+           (insert (format nil "  ~VA" *board-name-width* (format nil "[~A]" name)))
            (point))
              'name
              :foreground *board-fgcolor-name*
@@ -318,7 +318,7 @@
   )
   (set-text-attribute (point)
              (progn
-           (insert (format nil "~V@A"
+           (insert (format nil "~VA"
                    *board-date-width*
                    (if wtime
                        (format nil "[~A]" (view-format-date wtime
diff --git a/bookmark.l b/bookmark.l
index 406c26b..7ea66cd 100755
--- a/bookmark.l
+++ b/bookmark.l
@@ -126,7 +126,7 @@
   );3
   (set-text-attribute (point)
              (progn
-           (insert (format nil " ~15@A" (format nil "[~A]" (bookmark-category book))))
+           (insert (format nil " ~15A" (format nil "[~A]" (bookmark-category book))))
            (point))
              'name
              :foreground *bookmark-fgcolor-category*
@@ -135,7 +135,7 @@
   )
   (set-text-attribute (point)
              (progn
-           (insert (format nil " ~15@A" (format nil "[~A]" (bookmark-board book))))
+           (insert (format nil " ~15A" (format nil "[~A]" (bookmark-board book))))
            (point))
              'tracking
              :foreground *bookmark-fgcolor-board*
@@ -144,7 +144,7 @@
   )
   (set-text-attribute (point)
              (progn
-           (insert (format nil "~60@A" (bookmark-title book)))
+           (insert (format nil "~60A" (bookmark-title book)))
            (point))
              'title
              :foreground *bookmark-fgcolor-title*
diff --git a/menu.l b/menu.l
index cb73313..bb0f8b2 100755
--- a/menu.l
+++ b/menu.l
@@ -597,12 +597,12 @@
     (when add
       (setq str (concat str "新しい板\n"))
       (dolist (tmp (reverse add))
-   (setq str (format nil "~A  ~10@A: ~A~%" str (cdr tmp) (car tmp))))
+   (setq str (format nil "~A  ~10A: ~A~%" str (cdr tmp) (car tmp))))
       (setq str (concat str "\n")))
     (when del
       (setq str (concat str "消えた板\n"))
       (dolist (tmp (reverse del))
-   (setq str (format nil "~A   ~10@A: ~A~%" str (cdr tmp) (car tmp))))
+   (setq str (format nil "~A   ~10A: ~A~%" str (cdr tmp) (car tmp))))
       (setq str (concat str "\n")))
     (when diff
       (setq str (concat str "移転\n"))
@@ -884,7 +884,7 @@
 (defun menu-insert-category (name open-p)
   (set-text-attribute (point)
              (progn
-           (insert (format nil "~22@A~%"
+           (insert (format nil "~22A~%"
                    (format nil "~:[+~;-~][~A]" open-p name)))
            (point))
              'name
@@ -895,7 +895,7 @@
 (defun menu-insert-menu (name)
   (set-text-attribute (point)
              (progn
-           (insert (format nil "  ~20@A~%" name))
+           (insert (format nil "  ~20A~%" name))
            (point))
              'board
              :foreground *menu-fgcolor*