Index: openacs-4/packages/dotlrn/www/subcommunity-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	6 May 2002 23:55:02 -0000	1.12
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	12 May 2002 18:20:57 -0000	1.13
@@ -75,8 +75,7 @@
             # we want to make a subgroup of a class instance
             # get the term_id, since the subgroup should not
             # outlive the class
-            set term_id [dotlrn_class::get_term_id \
-                    -class_instance_id $parent_community_id]
+            set term_id [dotlrn_class::get_term_id -class_instance_id $parent_community_id]
         
             ns_set put $extra_vars term_id $term_id
     }