Index: openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql	3 Apr 2005 09:33:55 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs-oracle.xql	11 Apr 2005 22:18:48 -0000	1.3
@@ -34,6 +34,7 @@
             from acs_object_types
            start with object_type = :subtype
       connect by prior supertype = object_type
+           where object_type != :substype
         order by level desc
       </querytext>
 </fullquery>