Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	11 Dec 2018 14:14:41 -0000	1.12
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	24 Jun 2019 07:27:58 -0000	1.13
@@ -44,8 +44,8 @@
 
         <p><b>Example:</b>
         <pre>
-        # create a new group of type user_discount_class
-        set group_type [group_type::new -group_type $group_type \
+        # create a new group type user_discount_class
+        set group_type [group_type::new -group_type user_discount_class \
                 -supertype group \
                 "User Discount Class" "User Discount Classes"]
         </pre>