From a7d90920690b708814caa9ca36eb752cc9209577 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 8 Jan 2017 19:46:39 +0100
Subject: [PATCH] Purify DECUUO binary.

---
 build/build.tcl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/build/build.tcl b/build/build.tcl
index c2889354..03d4e0b8 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -918,8 +918,14 @@ respond "*" ":link sys;ts mailt,sys2;ts emacs\r"
 respond "*" ":midas device;atsign rmtdev_gz;rmtdev\r"
 
 # decuuo
-respond "*" ":midas decsys;ts dec_decuuo\r"
+respond "*" ":midas decsys;_decuuo\r"
 expect ":KILL"
+respond "*" ":job decuuo\r"
+respond "*" ":load decsys;decuuo bin\r"
+respond "*" "purify\033g"
+respond "TS DEC" "\r"
+respond "*" ":kill\r"
+
 respond "*" ":midas decsys;_decbot\r"
 expect ":KILL"