--- amsppt.sty.orig	Sun Feb  2 19:41:23 1997
+++ amsppt.sty	Tue Oct 20 12:11:07 1998
@@ -119,21 +119,21 @@
   \expandafter\ifx\first@#1-\end-\empty@ \false@\else \true@\fi}
 \endgroup
 \message{more fonts,}
-\font@\tensmc=cmcsc10 \relax
+\font@\tensmc=\fontprefix csc10 \relax
 \let\sevenex=\tenex % needs special handling in \PSAMSFonts
-\font@\sevenit=cmti7 \relax
-\font@\eightrm=cmr8 \relax % preloaded in plain.tex
-\font@\sixrm=cmr6 \relax % preloaded in plain.tex
+\font@\sevenit=\fontprefix ti7 \relax
+\font@\eightrm=\fontprefix r8 \relax % preloaded in plain.tex
+\font@\sixrm=\fontprefix r6 \relax % preloaded in plain.tex
 \font@\eighti=cmmi8 \relax     \skewchar\eighti='177 % preloaded
 \font@\sixi=cmmi6 \relax       \skewchar\sixi='177   % preloaded
 \font@\eightsy=cmsy8 \relax    \skewchar\eightsy='60 % preloaded
 \font@\sixsy=cmsy6 \relax      \skewchar\sixsy='60   % preloaded
 \let\eightex=\tenex % needs special handling in \PSAMSFonts
-\font@\eightbf=cmbx8 \relax % preloaded in plain.tex
-\font@\sixbf=cmbx6 \relax   % preloaded in plain.tex
-\font@\eightit=cmti8 \relax % preloaded in plain.tex
-\font@\eightsl=cmsl8 \relax % preloaded in plain.tex
-\font@\eighttt=cmtt8 \relax % preloaded in plain.tex
+\font@\eightbf=\fontprefix bx8 \relax % preloaded in plain.tex
+\font@\sixbf=\fontprefix bx6 \relax   % preloaded in plain.tex
+\font@\eightit=\fontprefix ti8 \relax % preloaded in plain.tex
+\font@\eightsl=\fontprefix sl8 \relax % preloaded in plain.tex
+\font@\eighttt=\fontprefix tt8 \relax % preloaded in plain.tex
 \let\eightsmc=\nullfont % needs special handling in \PSAMSFonts
 \newtoks\tenpoint@
 \def\tenpoint{\normalbaselineskip12\p@
@@ -223,7 +223,7 @@
       \else\ifnum##3=8 10 at8pt%
       \else\ifnum##3=6 7 at6pt%
               \else ##3\fi\fi\fi\relax}%
-  \font@\eightsmc=cmcsc10 at 8pt
+  \font@\eightsmc=\fontprefix csc10 at 8pt
   \font@\eightex=cmex10 at 8pt
   \font@\sevenex=cmex10 at 7pt
   \PSAMSFontstrue
@@ -266,7 +266,7 @@
   \let\loadextrafonts@\empty@
   \ifPSAMSFonts
   \else
-    \font@\eightsmc=cmcsc8 \relax
+    \font@\eightsmc=\fontprefix csc8 \relax
     \font@\eightex=cmex8 \relax
     \font@\sevenex=cmex7 \relax
   \fi
@@ -936,7 +936,8 @@
   \def\vadjust##1{\holdover{\vadjust@{##1}}}%
   \def\newpage{\vadjust{\vfill\break}}%
 }
-\def\refstyle#1{\uppercase{%
+\ifx\@uppercase\undefined\let\@uppercase\uppercase\fi
+\def\refstyle#1{\@uppercase{%
   \gdef\refstyle@{#1}%
   \if#1A\relax \def\keyformat##1{[##1]\enspace\hfil}%
   \else\if#1B\relax