diff --git a/lib/ring.ml b/lib/ring.ml
index e5364c2..4afdfc7 100644
--- a/lib/ring.ml
+++ b/lib/ring.ml
@@ -323,7 +323,7 @@ end
 
 module type Bidirectional_byte_stream = sig
 	val init: Cstruct.t -> unit
-	val to_debug_string: Cstruct.t -> string
+	val to_debug_map: Cstruct.t -> (string * string) list
 
 	module Front : sig
 		val unsafe_write: Cstruct.t -> string -> int -> int -> int
diff --git a/lib/ring.mli b/lib/ring.mli
index 35547d7..215e71d 100644
--- a/lib/ring.mli
+++ b/lib/ring.mli
@@ -158,7 +158,7 @@ end
 
 module type Bidirectional_byte_stream = sig
 	val init: Cstruct.t -> unit
-	val to_debug_string: Cstruct.t -> string
+	val to_debug_map: Cstruct.t -> (string * string) list
 
 	module Front : sig
 		val unsafe_write: Cstruct.t -> string -> int -> int -> int
diff --git a/xen/console_ring.ml b/xen/console_ring.ml
index 5a54aae..d3a50f4 100644
--- a/xen/console_ring.ml
+++ b/xen/console_ring.ml
@@ -32,10 +32,12 @@ module Ring = struct
 		} as little_endian
 	end
 	let init = zero
-	let to_debug_string t =
-		Printf.sprintf "input_cons = %ld prod = %ld; output cons = %ld prod = %ld"
-			(Layout.get_ring_input_cons t) (Layout.get_ring_input_prod t)
-			(Layout.get_ring_output_cons t) (Layout.get_ring_output_prod t)
+	let to_debug_map t = [
+		"input-cons", Int32.to_string (Layout.get_ring_input_cons t);
+		"input-prod", Int32.to_string (Layout.get_ring_input_prod t);
+		"output-cons", Int32.to_string (Layout.get_ring_output_cons t);
+		"output-prod", Int32.to_string (Layout.get_ring_output_prod t);
+	]
 	module Front = Pipe(Layout)
 	module Back = Pipe(Reverse(Layout))
 end
diff --git a/xen/xenstore_ring.ml b/xen/xenstore_ring.ml
index 9e5351d..9bb833c 100644
--- a/xen/xenstore_ring.ml
+++ b/xen/xenstore_ring.ml
@@ -32,11 +32,12 @@ module Ring = struct
 		} as little_endian
 	end
 	let init = zero
-	let to_debug_string t =
-		Printf.sprintf "input_cons = %ld prod = %ld; output cons = %ld prod = %ld"
-			(Layout.get_ring_input_cons t) (Layout.get_ring_input_prod t)
-			(Layout.get_ring_output_cons t) (Layout.get_ring_output_prod t)
-			
+	let to_debug_map t = [
+		"input-cons", Int32.to_string (Layout.get_ring_input_cons t);
+		"input-prod", Int32.to_string (Layout.get_ring_input_prod t);
+		"output-cons", Int32.to_string (Layout.get_ring_output_cons t);
+		"output-prod", Int32.to_string (Layout.get_ring_output_prod t);
+	]
 	module Front = Pipe(Layout)
 	module Back = Pipe(Reverse(Layout))
 end