$NetBSD$

--- rcfile.ml.orig	2006-07-17 00:29:41.000000000 +0200
+++ rcfile.ml
@@ -128,7 +128,7 @@ let inverse_color_table = Hashtbl.create
 (* Final hash table that maps from object to color_pair index *)
 let object_palette      = Hashtbl.create 20
 
-let tmpfile = "/tmp/wyrd-tmp." ^ (string_of_int (Unix.getuid ()))
+let tmpfile,tmpfd = Filename.open_temp_file "wyrd" "-temp"
       
 
 (* Turn colors on and off *)
