From fcab8d0bdae9d08d2ee16d0c92d799b241bbfbc4 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 13 Feb 2018 16:44:36 +0100
Subject: [PATCH] The final full dump takes longer now.

Also set tape number to something other than 0.
---
 build/build.tcl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index 233cc531..2eda8753 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -1465,13 +1465,14 @@ expect ":KILL"
 respond "*" $emulator_escape
 create_tape "out/output.tape"
 type ":dump\r"
-respond "_" "dump links full\r"
-respond "TAPE NO=" "0\r"
-expect "REEL"
+respond "_" "dump links full list\r"
+respond "LIST DEV =" "tty\r"
+respond "TAPE NO=" "1\r"
+expect -timeout 3000 "REEL"
 respond "_" "rewind\r"
 respond "_" "icheck\r"
-respond "=" "\r"
-respond "_" "quit\r"
+expect -timeout 3000 "_"
+type "quit\r"
 
 shutdown
 quit_emulator