[Bug-apl] Strange domain error

[Blake McBride]

Given:

      ∇Time[⎕]∇
    ∇
[0]   z←Time
[1]   z←(,Tmfmt 100⊥((12|z[1])+(12×0=12|z[1])),z[2]),(2 3⍴' AM
PM')[1+(z←⎕TS[4 5])[1]≥12;]
    ∇
      ∇Tmfmt[⎕]∇
    ∇
[0]   z←Tmfmt d
[1]   z←(2 0⍕⍉d[,1;]),':',2 0⍕⍉(d←(2⍴100)⊤,d)[,2;]
[2]   z←z[;1],(0 ¯1+⍴z)⍴¯1 0↓(d=' ')⊖(d←,0 1↓z),[0.5]'0'
    ∇


      )SI
      Time
DOMAIN ERROR
Tmfmt[1]  z←(2 0⍕⍉d[,1;]),':',2 0⍕⍉(d←(2⍴100)⊤,d)[,2;]
                              ^   ^
      →
      Time
 5:14 PM


I have no idea why I got a domain error.

Thanks.

Blake