+% 縦組みクラスについて、|geometry|パッケージが読み込まれると|\textwidth|と|\textheight|が
+% ひっくり返ってしまう問題に対処します。
+% \begin{macrocode}
+%<*tate>
+\AtEndOfPackageFile{geometry}{%
+ \setlength{\@tempdima}{\textheight}%
+ \setlength{\textheight}{\textwidth}%
+ \setlength{\textwidth}{\@tempdima}%
+ \expandafter\def\expandafter\Gm@process\expandafter{\Gm@process
+ \setlength{\@tempdima}{\textheight}%
+ \setlength{\textheight}{\textwidth}%
+ \setlength{\textwidth}{\@tempdima}}}
+%</tate>