Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.41 -r1.542.2.42
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Sep 2019 12:28:26 -0000	1.542.2.41
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Sep 2019 09:54:19 -0000	1.542.2.42
@@ -1891,15 +1891,17 @@
   Page instproc save args {
     if {![:can_save]} {error "can't save this page under this parent"}
     ${:package_id} flush_page_fragment_cache
-    next
+    set id [next]
     :check_unresolved_references
+    return $id
   }
 
   Page instproc save_new args {
     if {![:can_save]} {error "can't save this page under this parent"}
     ${:package_id} flush_page_fragment_cache
-    next
+    set id [next]
     :check_unresolved_references
+    return $id
   }
 
   Page instproc initialize_loaded_object {} {