diff -ur camlimages-3.0.1.orig/examples/liv/liv.ml camlimages-3.0.1/examples/liv/liv.ml
--- camlimages-3.0.1.orig/examples/liv/liv.ml	2006-09-29 14:21:41.000000000 +0100
+++ camlimages-3.0.1/examples/liv/liv.ml	2008-11-03 17:18:02.000000000 +0000
@@ -21,14 +21,14 @@
 
 open Livmisc;;
 open Gui;;
-open Display;;
+open Livdisplay;;
 open Tout;;
 
 open Gc;;
 
 exception Skipped;;
 
-let base_filters = ref ([] : Display.filter list);;
+let base_filters = ref ([] : Livdisplay.filter list);;
 
 let r = Gc.get () in
 r.max_overhead <- 0; Gc.set r;
@@ -52,15 +52,15 @@
   "-root",
     Arg.String
       (function
-       | "center" -> Display.root_mode := `CENTER
-       | "random" -> Display.root_mode := `RANDOM
+       | "center" -> Livdisplay.root_mode := `CENTER
+       | "random" -> Livdisplay.root_mode := `RANDOM
        | _ -> raise (Failure "root mode")),
     ": on root [center|random]";
   "-transition",
     Arg.String
       (function
-       | "myst" -> Display.transition := `MYST
-       | "transparent" -> Display.transition := `TRANSPARENT
+       | "myst" -> Livdisplay.transition := `MYST
+       | "transparent" -> Livdisplay.transition := `TRANSPARENT
        | _ -> raise (Failure "transition")),
     ": transition [myst|transparent]";
   "-transparentborder",
diff -ur camlimages-3.0.1.orig/examples/liv/Makefile.am camlimages-3.0.1/examples/liv/Makefile.am
--- camlimages-3.0.1.orig/examples/liv/Makefile.am	2007-05-21 19:54:32.000000000 +0100
+++ camlimages-3.0.1/examples/liv/Makefile.am	2008-11-03 17:15:54.000000000 +0000
@@ -23,7 +23,7 @@
 	       seq.ml \
 	       tout.ml \
 	       enhance.ml \
-	       display.ml \
+	       livdisplay.ml \
 	       viewer.ml \
 	       edge.ml \
 	       pathfind.ml \