X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=virt-top%2Fvirt_top.ml;h=3990b559c0d863c6dd6b1cc030310513294bf134;hb=d24e39fd4ba4dee11674a319bb6bbdd5d2be995c;hp=36b7e17d180c514d87b4241b86c66cace0becd8a;hpb=2a8acd07005f2e8cdc43a6cc2a4e6f3d66f9fc4d;p=virt-top.git

diff --git a/virt-top/virt_top.ml b/virt-top/virt_top.ml
index 36b7e17..3990b55 100644
--- a/virt-top/virt_top.ml
+++ b/virt-top/virt_top.ml
@@ -1174,7 +1174,7 @@ let redraw =
 
     (* Display historical CPU time. *)
     let () =
-      let x, y = historical_cursor in (* Yes, it's a bug in ocaml-curses *)
+      let y, x = historical_cursor in
       let maxwidth = cols - x in
       let line =
 	String.concat " "