diff --git a/pub/share/wups11a.ps b/pub/share/wups11a.ps
index e1cb73a17e58798b81acc5412289305411d0d7e8..ffc9946300eee697a6398fd33b62e83b3b6bc84b 100644
--- a/pub/share/wups11a.ps
+++ b/pub/share/wups11a.ps
@@ -519,7 +519,7 @@ WuGdict11a begin
    2 add {( ) showif} repeat
    } def
 
-/block { % x y ob xrel yrel block -
+/block { % x y ob xrel yrel | -
    /yrel x def /xrel x def /blabla x def
     /ypos x ym def /xpos x xm def
    /regularfont currentfont def /yoffset 0 def % initialize for security
@@ -1044,18 +1044,18 @@ WuGdict11a begin
 %%  Plot a data symbol:
 
 /plot_symbol { % x y | -
-   gsave
-      offset
-      srad dup scale
-      slin srad div setline % Faktor 1/div unverstanden, aber noetig
-      ps % the actual plot symbol, defined by 'pset'
-      grestore
-   } bind def
+    gsave
+       offset
+       srad dup scale
+       slin srad div setline % Faktor 1/div unverstanden, aber noetig
+       ps % the actual plot symbol, defined by 'pset'
+       grestore
+   } def
 
 /fill_symbol {
    sfill dup
       0 eq {
-         st
+         pop st
       } {
          1 eq {
             fill
@@ -1064,7 +1064,7 @@ WuGdict11a begin
 	    gsave black st grestore
 	 } ifelse
       } ifelse
-   } bind def
+   } def
 
 
 %%  The different symbols, designed for unit area (no arguments):
@@ -1187,9 +1187,9 @@ WuGdict11a begin
    oooinfo 1 eq { TxLine } { pop } ifelse
    } bind def
 /PtTxLine { % pstyle text | -
-   x pstyle /txt x def
+   x pstyle
    nl_xins nl_xshift .5 mul add nl_yins 0 t
-   txt black nl_xins nl_xshift 1.5 mul add nl_yins 3 -1 roll  textLM
+   black nl_xins nl_xshift 1.5 mul add nl_yins 3 2 roll textLM
    newline
    } bind def
 /PtPtCvTxLine { % pstyle pstyle cstyle text | -