diff --git a/lib2/h3-mm.adb b/lib2/h3-mm.adb
index c55ecf9..fd83446 100644
--- a/lib2/h3-mm.adb
+++ b/lib2/h3-mm.adb
@@ -15,7 +15,7 @@ package body H3.MM is
 		R.Data.Item := V;
 	end Create;
 
-	function Get_Item_Pointer (R: in out Ref_Counted) return Item_Pointer is
+	function Get_Item_Pointer (R: in Ref_Counted) return Item_Pointer is
 	begin
 		if R.Data /= null then
 			return R.Data.Item'Access;
diff --git a/lib2/h3-mm.ads b/lib2/h3-mm.ads
index 5caff85..205a395 100644
--- a/lib2/h3-mm.ads
+++ b/lib2/h3-mm.ads
@@ -21,7 +21,7 @@ package H3.MM is
 	procedure Create (R: in out Ref_Counted);
 	procedure Create (R: in out Ref_Counted; V: in Item_Type);
 
-	function Get_Item_Pointer (R: in out Ref_Counted) return Item_Pointer;
+	function Get_Item_Pointer (R: in Ref_Counted) return Item_Pointer;
 	pragma Inline(Get_Item_Pointer);
 
 	function Is_Shared (R: in Ref_Counted) return Standard.Boolean;