Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.90.2.5 -r1.90.2.6
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	13 Nov 2014 18:24:36 -0000	1.90.2.5
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	12 Dec 2014 08:33:23 -0000	1.90.2.6
@@ -270,7 +270,7 @@
     if {[my exists geometry]} {append link "?geometry=[my set geometry]"}
     set label [string map [list ' "'"] $label]
     if {[my exists href]} {set href [my set href]} {set href ""}
-    set cls [my mk_css_class_and_id -default [expr {$href ne "" ? "image" : "refused-link"}]]
+    set cls [my mk_css_class_and_id -default [expr {$link ne "" ? "image" : "refused-link"}]]
     if {$href ne ""} {
       set href [my set href]
       if {[string match "java*" $href]} {set href .}