From 50e05e363e1f046f992f36698764d00113d53ede Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 30 Dec 2016 11:58:04 +0100
Subject: [PATCH] Improve (maybe not) running :PDSET.

---
 build/build.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/build/build.tcl b/build/build.tcl
index 3a6ab0c7..c2889354 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -30,6 +30,8 @@ proc pdset {} {
 	respond "IT IS NOW" "Q"
     } "IT IS NOW" {
         type "Q"
+    } "ITS revived" {
+        type "Q"
     }
     expect ":KILL"
 }
@@ -201,7 +203,7 @@ respond "DSKDMP" "m\033nsalv bin\r"
 expect "\n"; type "d\033nits\r"
 expect "\n"; type "nits\r"
 expect "\n"; type "\033g"
-pdset
+maybe_pdset
 
 respond "*" ":login db\r"
 sleep 1