Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.148 -r1.149
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	22 Jun 2002 20:11:03 -0000	1.148
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Jun 2002 18:47:26 -0000	1.149
@@ -82,7 +82,7 @@
     } {
         # Figure out parent_node_id
         set parent_node_id [get_type_node_id $parent_type]
-        array set parent_node [get -node_id $parent_node_id]
+        array set parent_node [site_node::get -node_id $parent_node_id]
 
         db_transaction {
             # Create the class directly using PL/SQL API