diff --git a/src/xschem.tcl b/src/xschem.tcl
index 0b258585..c4d2e06c 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -1892,7 +1892,13 @@ proc graph_update_nodelist {} {
       }
       set b [lindex $colors $col_idx]  
       .graphdialog.center.right.text1 tag add t$n "1.0 + $t chars" "1.0 + $c chars"
-      .graphdialog.center.right.text1 tag configure t$n -background $b -selectbackground grey40
+
+      if { [info tclversion] > 8.4} {
+        .graphdialog.center.right.text1 tag configure t$n -background $b -selectbackground grey40
+      } else {
+        .graphdialog.center.right.text1 tag configure t$n -background $b
+      }
+      
       incr n
     }
     # remove excess colors