Principal device occasional change causes process termination, fixes #93

Author: nikitaeverywhere

package.json

@@ -5,7 +5,7 @@
   "printableName": "Cache Web Terminal",
   "description": "Web-based terminal emulator for Caché administering.",
   "author": "ZitRo",
-  "version": "4.2.7",
+  "version": "4.2.8",
   "gaID": "UA-83005064-2",
   "releaseNumber": 26,
   "scripts": {

src/cls/WebTerminal/Core.cls

@@ -357,6 +357,7 @@ ClassMethod Loop(StartupRoutine As %String = "") As %Status
         set $ZERROR = ""
         try {
             xecute ..WaitCommand()
+            use $io::"^" _ $ZName
         } catch {}
         do ##class(%Device).ReDirectIO($$$NO)
         write !! // assume that prompt takes 2 lines