Do not clear out trains when Finalising

diff --git a/hostside/gui b/hostside/gui
index fa04dd7de2ceb002739e98f3f13754024d53279b..3ba7c88315a0781bdc048108b8bdaf7424d5567f 100755 (executable)
--- a/hostside/gui
+++ b/hostside/gui
@@ -471,6 +471,9 @@ proc speedws-stastate-hook {} {
            set trains [array names train_commanded]
            speedws-forall speedw-trains-available $trains
        }
+       Finalising {
+           speedws-forall speedw-notrains "($stastate)"
+       }
        default {
            catch { unset train_commanded }
            speedws-forall speedw-notrains "($stastate)"