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 -N -r1.39 -r1.40
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	30 Jan 2008 18:59:46 -0000	1.39
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	11 Feb 2008 02:16:41 -0000	1.40
@@ -176,8 +176,10 @@
       margin margin-left margin-right margin-top margin-bottom
       border border-width position top botton left right
     } {
-      if {$a eq "center"} {set pre "<center>"; set post "</center>"; continue}
-      if {[my exists $a]} {append style "$a: [my set $a];"}
+      if {[my exists $a]} {
+        if {$a eq "center"} {set pre "<center>"; set post "</center>"; continue}
+        append style "$a: [my set $a];"
+      }
     }
     if {$style ne ""} {set style "style='$style'"}
     set label [string map [list ' "&#39;"] $label]