Error: "http" -- Tag not found

[Mansur Mamkin]

Hi all!

While improving and testing kerberos authentication, 
now I get strange error when I'm going to 
http:/<wiki-session-url>?*ID=$krblogin

!? (throw "http")
"http" -- Tag not found

The code is:
#----
(unless (setq *Url (ht:Pack @U))
   (setq *Url (car *Home) @U (cdr *Home)) )
(out S
   (ifn (or (n== *ID 'krblogin) *KrbPrinc) (! http401))  # <-- added code
   (cond
      ((match '("-" @X "." "h" "t" "m" "l") @U)
#----  

(de http401 ()
   (httpStat 401 "Unauthorized" "WWW-Authenticate: Negotiate")
   (throw "http") )  # <-- error occurs here

Best regards,
Mansur Mamkin