Index: openacs-4/packages/xotcl-core/www/show-class-graph.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-class-graph.tcl,v
diff -u -N -r1.8.6.3 -r1.8.6.4
--- openacs-4/packages/xotcl-core/www/show-class-graph.tcl	5 Oct 2013 12:33:44 -0000	1.8.6.3
+++ openacs-4/packages/xotcl-core/www/show-class-graph.tcl	14 Feb 2014 18:23:18 -0000	1.8.6.4
@@ -87,7 +87,7 @@
     set reduced_sc [list]
     foreach sc [$e info superclass] {
       if {$omit_base_classes && $sc eq "::xotcl::Object"
-	  || $sc eq "::xotcl::Class"} continue
+          || $sc eq "::xotcl::Class"} continue
       lappend reduced_sc $sc
     }
     if {$reduced_sc eq {}} continue
@@ -169,3 +169,11 @@
 
 #set f [open $tmpnam.dot w]; puts $f $dot_code; close $f
 #file delete $tmpnam.dot
+
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: