Index: openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl	10 Sep 2015 08:10:44 -0000	1.4.2.1
+++ openacs-4/packages/xowiki/www/xinha/insert-wlink.tcl	5 Nov 2016 18:04:59 -0000	1.4.2.2
@@ -32,10 +32,12 @@
       if {[[my info parent] set show_heritage]} {
         Field inherited -label ""
       }
-      AnchorField name -label [_ xowiki.Page-name] -html {onclick "onOK(this)"}
+      AnchorField name -label [_ xowiki.Page-name] -CSSclass "ok-handler"
       Field title -label [::xowiki::Page::slot::title set pretty_name]
     }
 
+template::add_event_listener -CSSclass "ok-handler" -script {onOK(this);}
+
 foreach entry [$listing children] {
   $entry instvar name parent_id title formatted_date page_id 
   set entry_package_id [$entry set package_id]