   ([name]
      (if (seq name)
        (let [attrs (doto (HashAttributeSet.) (.add (PrinterName. name nil)))] 
-         (some (fn [^PrintService p] (if (= name (.getName p)) p)) (printers nil attrs)))
+         (some (fn [^PrintService p] (when (= name (.. p getName)) p)) (printers nil attrs)))
        (printer))))
 
 (defn status

   With no arguments, returns a seq of all printers that
   PrintServiceLookup is aware of."
  {:added "1.0"}
  ([& {:keys [^DocFlavor flavor ^AttributeSet attrs] :or [flavor nil attrs nil]}] 
     (seq (PrintServiceLookup/lookupPrintServices flavor attrs))))

(defn printer 

           (java.net URL)
           (javax.print Doc
                        DocPrintJob
                        DocFlavor ;; Remove me!
                        PrintException
                        PrintService
                        PrintServiceLookup
                        SimpleDoc)
           (javax.print.attribute Attribute
                                  AttributeSet
                                  DocAttributeSet
                                  HashAttributeSet
                                  HashPrintRequestAttributeSet)
           (javax.print.attribute.standard MediaTray
