"limited with" packages

[adam.betts155@gmail.com]

I have the following code:

---------------------------------------------------------------------------------------------------------------------------
with my_package; use my_package;
package other_package is
   type type_one (<>) is private;
   type type_one_pointer is access constant type_one'class;

   function create (t_2: type_two'class) return type_one'class;
........
end other_package;
---------------------------------------------------------------------------------------------------------------------------
limited with other_package;
package my_package is
  type type_two is private;

  function get_type_one (t_2: type_two'class) return
other_package.type_one_pointer;
.........
end my_package
---------------------------------------------------------------------------------------------------------------------------
package body my_package is

function get_type_one (t_2: type_two'class) return
other_package.type_one_pointer is
  t_one_ptr : other_package.type_one_pointer;
begin
  t_one_ptr := new
other_package.type_one'class'( other_package.create(t_2) );
end get_type_one;

end my_package;
---------------------------------------------------------------------------------------------------------------------------

However, I'm getting the error:"create" not declared in
"other_package"

which I do not understand as it does not complain about the types
(type_one and type_one_pointer). Maybe it is my misunderstanding of
the "limited with" clause. Any help much appreciated.