Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	3 Aug 2001 21:09:20 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	11 Aug 2001 21:31:03 -0000	1.3
@@ -824,7 +824,11 @@
 	    }
 	}
     }	
-	
+
+    # Ben's temporary hack
+    lappend pieces object_type
+    ns_log Notice "BEN_ACS_SUBSITE: $object_type; $pieces"
+
     set object_id [db_exec_plsql create_object "
     BEGIN
       :1 := ${package_name}.new([plsql_utility::generate_attribute_parameter_call \