Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.216.2.15 -r1.216.2.16
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Oct 2021 10:17:27 -0000	1.216.2.15
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	7 Feb 2022 15:49:52 -0000	1.216.2.16
@@ -1431,6 +1431,10 @@
     @param region the PEs current region
     @param direction up or down
 } {
+    if {![string is integer -strict $region]} {
+        ad_return_complaint 1 "portal::move_element [_ acs-templating.Invalid_integer]"
+        ad_script_abort
+    }
 
     permission::require_permission -object_id $portal_id -privilege portal_read_portal
     permission::require_permission -object_id $portal_id -privilege portal_edit_portal