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 -N -r1.35 -r1.36
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Dec 2001 20:47:46 -0000	1.35
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 Dec 2001 23:59:15 -0000	1.36
@@ -39,7 +39,7 @@
 	Create a new community type.
     } {
 	# Figure out parent_node_id
-	set parent_node_id [dotlrn::get_node_id]
+        set parent_node_id [get_type_node_id $parent_type]
 
 	db_transaction {
 	    # Create the class directly using PL/SQL API
@@ -81,7 +81,7 @@
     } {
 	return [db_string select_node_id {}]
     }
-    
+
     ad_proc -public new {
 	{-description ""}
 	{-community_type:required}