         )
       (catch Throwable t 
         (do 
-          (rethro t)
+          (throw t);(rethro t)
           )
         )
       )

  [& [in-path prefix suffix]]
  ;(delay 
    (try
      (let [uniqueFile (getUniqueFile)
            ]
        (assumedTrue (.exists uniqueFile) (.isFile uniqueFile))
        (assumedFalse (.isDirectory uniqueFile))






;(thro 2)

