--- ps/base.ps
+++ ps/base.ps	2006-05-19 12:23:41.000000000 +0200
@@ -113,7 +113,7 @@
 } bind def
 
 /reencode_font {
-  findfont reencode 2 copy definefont pop def
+  findfont reencode 2 copy definefont exch pop def
 } bind def
 
 % Function c-show (str => -)