Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	16 Apr 2007 09:52:56 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	16 Apr 2007 11:09:12 -0000	1.55
@@ -193,7 +193,7 @@
 #       }
       ::xo::db::content_type create_type \
           -content_type $object_type \
-          -supertype $super_type \
+          -supertype $supertype \
           -pretty_name $pretty_name \
           -pretty_plural $pretty_plural \
           -table_name $table_name \