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 -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/xotcl-core/www/index.tcl	10 Sep 2015 08:10:45 -0000	1.8.2.1
+++ openacs-4/packages/xotcl-core/www/index.tcl	30 Dec 2015 18:09:14 -0000	1.8.2.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] && ![string match "::nx::*" $cl])} {
     return "<a href='#$cl'>$cl</a>"
   } else {
     return $cl
@@ -57,10 +57,11 @@
     lappend classes {*}[nx::Class info instances -closure]
 }
 foreach cl [lsort $classes] {
-  if {!$all_classes && [string match "::xotcl::*" $cl]} \
-      continue
+  if {!$all_classes && ([string match "::xotcl::*" $cl] || [string match "::nx::*" $cl])} {
+    continue
+  }
   
-  append output "<li><b><a name='$cl'>[::xotcl::api object_link {} $cl]</b> <ul>"
+  append output "<li><b><a name='$cl'>[::xo::api object_link {} $cl]</b> <ul>"
 
   append output [info_classes $cl superclass]
   append output [info_classes $cl subclass 1]
@@ -69,7 +70,7 @@
 
   foreach key {proc instproc} {
     set infos ""
-    foreach i [lsort [::xo::getObjectProperty $cl $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
+    foreach i [lsort [::xo::getObjectProperty $cl $key]] {append infos [::xo::api method_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
     if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"
@@ -78,7 +79,7 @@
   }
 
   set infos ""
-  foreach o [lsort [$cl info instances]] {append infos [::xotcl::api object_link {} $o] ", "}
+  foreach o [lsort [$cl info instances]] {append infos [::xo::api object_link {} $o] ", "}
   set infos [string trimright $infos ", "]
   if {$infos ne ""} {
     append output "<li><em>instances:</em> $infos</li>\n"