diff --git a/src/lib/Wst/Server.hs b/src/lib/Wst/Server.hs
index 2997610..c763b51 100644
--- a/src/lib/Wst/Server.hs
+++ b/src/lib/Wst/Server.hs
@@ -188,8 +188,8 @@ issueProgrammableTokenEndpoint :: forall era env m.
   , MonadUtxoQuery m
   )
   => IssueProgrammableTokenArgs -> m (TextEnvelopeJSON (C.Tx era))
-issueProgrammableTokenEndpoint IssueProgrammableTokenArgs{itaAssetName, itaQuantity, itaIssuer} = do
-  let C.ShelleyAddress _network cred _stake = itaIssuer
+issueProgrammableTokenEndpoint IssueProgrammableTokenArgs{itaAssetName, itaQuantity, itaIssuer, itaRecipient} = do
+  let C.ShelleyAddress _network cred _stake = itaRecipient
       destinationCredential = C.fromShelleyPaymentCredential cred
   operatorEnv <- Env.loadOperatorEnvFromAddress itaIssuer
   dirEnv <- asks Env.directoryEnv
diff --git a/src/lib/Wst/Server/Types.hs b/src/lib/Wst/Server/Types.hs
index c6d2300..5bf79b8 100644
--- a/src/lib/Wst/Server/Types.hs
+++ b/src/lib/Wst/Server/Types.hs
@@ -108,6 +108,7 @@ data IssueProgrammableTokenArgs =
     { itaIssuer    :: C.Address C.ShelleyAddr
     , itaAssetName :: AssetName
     , itaQuantity  :: Quantity
+    , itaRecipient :: C.Address C.ShelleyAddr
     }
     deriving stock (Eq, Show, Generic)