+ (* Gc.compact is generally not safe in lablgtk programs, but
+ * is explicitly allowed in timeouts (see lablgtk README).
+ * This ensures memory is compacted regularly, but is also an
+ * excellent way to catch memory bugs in the ocaml libvirt bindings.
+ *)
+ Gc.compact ();
+
+ (* Ugh: Bug in lablgtk causes a segfault if a timeout raises an
+ * exception. Catch and print exceptions instead.
+ *)
+ (try state := Vc_connections.repopulate tree model columns !state
+ with exn -> prerr_endline (Printexc.to_string exn));
+