***************
*** 111,117 ****
  	sprintf "%s%s#%s" !output_file !link_suffix k 
      in
      let c = if !use_keys then k else Hashtbl.find cite_tab k in
!     print_s (sprintf "<A HREF=\"%s\">[%s]</A>" url c)
    with
        Not_found -> print_s "[?]"
  
--- 111,118 ----
  	sprintf "%s%s#%s" !output_file !link_suffix k 
      in
      let c = if !use_keys then k else Hashtbl.find cite_tab k in
!     (* JK *)
!     print_s (sprintf "[<a href=\"%s\">%s</a>]" url c)
    with
        Not_found -> print_s "[?]"