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 -N -r1.7 -r1.8
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	19 Feb 2007 10:01:28 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	15 Mar 2007 12:10:49 -0000	1.8
@@ -108,8 +108,9 @@
                            -mode_3_fmt "%d %b %Y, at %X"]
       
       if {$summary} {
-        # we need always: package_id name title creator creation_user pretty_date
-        set p [Page new -package_id $package_id -name $name -title $title -creator $creator]
+        # we need always: package_id item_id name title creator creation_user pretty_date
+        set p [Page new -package_id $package_id -item_id $item_id \
+                   -name $name -title $title -creator $creator]
         $p set creation_user $creation_user
         $p set description [expr {$description eq "" && $body ne ""? \
                                       "[string range $body 0 150]..." : $description}]