Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	20 Jun 2008 09:50:27 -0000	1.36
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	20 Jun 2008 21:40:20 -0000	1.37
@@ -32,10 +32,20 @@
     foreach t [split $entries_of |] {
       set form_item_id [::xo::db::CrClass lookup -name $t -parent_id $folder_id]
       if {$form_item_id == 0} {
-        # the form does not exist in the CR. Maybe we can create it
+        # The form does not exist in the CR. Maybe we can create it
         # via a prototype page?
         regexp {^.+:(.*)$} $t _ t
+	#my msg "Form $t does not exist, try to load via prototype page"
+	# The following approach is not the best and should be
+	# replaced by a better definition of 'contains". The
+	# method "contains" overloads new and stuffs in an additional
+	# argument "-childof...", which causes problems for the 
+	# "new" methods in the database, which do not know about
+	# this argument...
+	set XOTclClassMixins [::xotcl::Class info instmixin]
+	::xotcl::Class instmixin {}
         set page [$package_id import_prototype_page $t]
+	::xotcl::Class instmixin $XOTclClassMixins
         if {$page ne ""} {set form_item_id [$page item_id]}
       }
       if {$form_item_id == 0} {error "Cannot lookup page $t"}