anchor.diff:          (*transformation* (sheet-native-transformation (medium-sheet medium)))
           (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
       (postscript-actualize-graphics-state stream medium :color)
  -    (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
  -      (format stream "newpath~%")
  -      (write-coordinates stream x y)
  -      (format stream "~A 0 360 arc~%" radius)
  -      (format stream "0 setlinewidth~%")
  -      (format stream "fill~%"))))
  +    (format stream "newpath~%")
  +    (write-coordinates stream x y)
  +    (format stream "~A 0 360 arc~%" radius)
  +    (format stream "fill~%")))
   
   (defmethod medium-draw-points* ((medium postscript-medium) coord-seq)
     (let ((stream (postscript-medium-file-stream medium))
           (*transformation* (sheet-native-transformation (medium-sheet medium)))
  -        (radius (format-postscript-angle (/ (medium-line-thickness medium) 2))))
  +        (radius (format-postscript-number (/ (medium-line-thickness medium) 2))))
       (postscript-actualize-graphics-state stream medium :color)
  -    (with-graphics-state (medium) ; FIXME: this is because of setlinewidth below
  -      (format stream "0 setlinewidth~%")
  -      (map-repeated-sequence 'nil 2
  -                             (lambda (x y)
  -                               (format stream "newpath~%")
  -                               (write-coordinates stream x y)
  -                               (format stream "~A 0 360 arc~%" radius)
  -                               (format stream "fill~%"))
  -                             coord-seq))))
  +    (map-repeated-sequence 'nil 2
  +                           (lambda (x y)
  +                             (format stream "newpath~%")
  +                             (write-coordinates stream x y)
  +                             (format stream "~A 0 360 arc~%" radius)
  +                             (format stream "fill~%"))
  +                           coord-seq)))
   
   (defmethod medium-draw-line* ((medium postscript-medium) x1 y1 x2 y2)
     (let ((stream (postscript-medium-file-stream medium))
  
positive.code:           ;; untransform them again and simply tell the postscript interpreter
            ;; our transformation matrix. --GB
            ;;
            ;; It should be updated. -- APD, 2002-05-27
            (multiple-value-setq (x y)
              (untransform-position (medium-transformation medium) x y))
            (multiple-value-bind (mxx mxy myx myy tx ty)
  
negative.code:   (multiple-value-bind (font size)
        (text-style->postscript-font
         (merge-text-styles text-style
                            (medium-merged-text-style medium)))
      (text-size-in-font font size
                         string start (or end (length string)))))
  