Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -N -r1.368.2.150 -r1.368.2.151
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	22 Jan 2024 14:52:02 -0000	1.368.2.150
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	23 Jan 2024 13:20:14 -0000	1.368.2.151
@@ -2964,7 +2964,14 @@
       # Revert changes performed by this method on the page object, as
       # these may come from data failing to validate.
       #
-      old_page copy [self]
+      foreach var [old_page info vars] {
+        set :$var [old_page set $var]
+        if {[old_page array exists $var]} {
+          array set :$var [old_page array get $var]
+        } else {
+          set :$var [old_page set $var]
+        }
+      }
     }
 
     #:log "=== get_form_data has validation_errors $validation_errors, instance_attributes: ${:instance_attributes}"