Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/xotcl-core/www/index.tcl	11 Oct 2005 08:41:18 -0000	1.1
+++ openacs-4/packages/xotcl-core/www/index.tcl	30 Dec 2005 00:04:45 -0000	1.2
@@ -26,7 +26,7 @@
 
 proc local_link cl {
   upvar all_classes all_classes
-  if {$all_classes || ![string match ::xotcl::* $cl]} {
+  if {$all_classes || ![string match "::xotcl::*" $cl]} {
     return "<a href='#$cl'>$cl</a>"
   } else {
     return $cl
@@ -50,7 +50,7 @@
     append infos [local_link $s] ", "
   }
   set infos [string trimright $infos ", "]
-  if {[string compare "" $infos]} {
+  if {$infos ne ""} {
     return "<li><em>$key</em> $infos</li>\n"
   } else {
     return ""
@@ -59,7 +59,7 @@
 
 set output "<ul>"
 foreach cl [lsort [::xotcl::Class allinstances]] {
-  if {!$all_classes && [string match ::xotcl::* $cl]} \
+  if {!$all_classes && [string match "::xotcl::*" $cl]} \
       continue
   
   append output "<li><b><a name='$cl'>[::xotcl::api object_link {} $cl]</b> <ul>"
@@ -72,7 +72,7 @@
     set infos ""
     foreach i [$cl info $key] {append infos [doc_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
-    if {[string compare "" $infos]} {
+    if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"
     }
     
@@ -81,7 +81,7 @@
   set infos ""
   foreach o [$cl info instances] {append infos [::xotcl::api object_link {} $o] ", "}
   set infos [string trimright $infos ", "]
-  if {[string compare "" $infos]} {
+  if {$infos ne ""} {
     append output "<li><em>instances:</em> $infos</li>\n"
   }