[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