diff --git a/openpgp-card-sequoia/src/card.rs b/openpgp-card-sequoia/src/card.rs
index a1e2085..22227ff 100644
--- a/openpgp-card-sequoia/src/card.rs
+++ b/openpgp-card-sequoia/src/card.rs
@@ -104,6 +104,23 @@ impl Open {
     pub fn check_admin_verified(&mut self) -> Result<Response, Error> {
         self.card_app.check_pw3()
     }
+
+    pub fn change_user_pin(
+        &mut self,
+        old: &str,
+        new: &str,
+    ) -> Result<Response, Error> {
+        self.card_app.change_pw1(old, new)
+    }
+
+    pub fn change_admin_pin(
+        &mut self,
+        old: &str,
+        new: &str,
+    ) -> Result<Response, Error> {
+        self.card_app.change_pw3(old, new)
+    }
+
     /// Get a view of the card authenticated for "User" commands.
     pub fn user_card(&mut self) -> Option<User> {
         if self.pw1 {