diff --git a/bash/src/pman.sh b/bash/src/pman.sh
index 9356f85..b095039 100644
--- a/bash/src/pman.sh
+++ b/bash/src/pman.sh
@@ -318,7 +318,7 @@ function _mscript_delete_branch() {
     _scripta "delete branch $SrcBranch" <<EOF
 $comment$(qvals git branch -D "$SrcBranch")$or_die
 EOF
-    array_addu push_branches ":$SrcBranch"
+    array_addu delete_branches ":$SrcBranch"
 }
 
 ################################################################################
diff --git a/bin/pdev b/bin/pdev
index 21ca20e..8d1b4d4 100755
--- a/bin/pdev
+++ b/bin/pdev
@@ -32,7 +32,7 @@ Ce script va
     ask_yesno "Voulez-vous continuer?" O || die
 
     local script=".git/rel-merge.sh"
-    local -a push_branches
+    local -a push_branches delete_branches
     local comment=
     local or_die=" || exit 1"
 
@@ -66,6 +66,12 @@ if [ -n "\$push" ]; then
 esection "Pousser les branches"
 EOF
     _script_push_branches
+    if [ ${#delete_branches[*]} -gt 0 ]; then
+        _scripta <<<"if [ -n \"\$delete\" ]; then"
+        push_branches=("${delete_branches[@]}")
+        _script_push_branches
+        _scripta <<<fi
+    fi
     _scripta <<EOF
 fi
 EOF