From 02f425a9a26d1386720e78c552423e9f20673117 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ad=C3=A1m=20Brudzewsky?= <a.brudz@gmail.com>
Date: Wed, 28 Feb 2024 16:25:19 +0100
Subject: [PATCH] Fix #619

Passes QA, diffed with BB
---
 StartupSession/Link/Utils.apln   | 2 +-
 StartupSession/Link/Version.aplf | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/StartupSession/Link/Utils.apln b/StartupSession/Link/Utils.apln
index 7e68965b..46782ca0 100644
--- a/StartupSession/Link/Utils.apln
+++ b/StartupSession/Link/Utils.apln
@@ -376,7 +376,7 @@
       }
         RootOf←{⍵.##}⍣≡
     IsRoot←{⍵=⍵.##}                         ⍝ is namespace a root
-    SplitNs←{0≠⎕NC'⍺':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)}   ⍝ '#.ns' 'name' ← SplitNs '#.ns.name'  - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken
+    SplitNs←{(0≠⎕NC'⍺')>∨/⊃⍤⍷∘⍵¨'#.' '⎕SE.' '⎕DMX.':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)}   ⍝ '#.ns' 'name' ← SplitNs '#.ns.name'  - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken
     JoinNames←{mask←⍺≡¨⍵ ⋄ (mask/⍵)@{mask}⍺('.'JoinEach)⍵}  ⍝ ⍺,¨'.',¨⍵, excepted when ⍺≡¨⍵ (e.g. DetermineAplName returns #.#)
     IsParent←{p←⍵.## ⋄ ⍺∊p ⍵:1 ⋄ ⍵=p:0 ⋄ ⍺∇p }  ⍝ is ⍺ parent of ⍵
 
diff --git a/StartupSession/Link/Version.aplf b/StartupSession/Link/Version.aplf
index 3f7c3fd4..03fc40d5 100644
--- a/StartupSession/Link/Version.aplf
+++ b/StartupSession/Link/Version.aplf
@@ -1,2 +1,2 @@
 version←Version
-version←'4.0.16'
+version←'4.0.17'