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.43 -r1.542.2.44
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Sep 2019 21:24:38 -0000	1.542.2.43
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Oct 2019 19:54:09 -0000	1.542.2.44
@@ -3248,7 +3248,7 @@
     set ia [dict merge [:default_instance_attributes] $instance_attributes]
 
     if {$nls_language eq ""} {
-      set nls_language [:query_parameter nls_language [:nls_language]]
+      set nls_language [:query_parameter nls_language:wordchar [:nls_language]]
     }
     if {![info exists package_id]} { set package_id ${:package_id} }
     if {![info exists parent_id]}  { set parent_id ${:parent_id} }
@@ -3496,7 +3496,7 @@
     #set page_link [::$package_id make_link -privilege public [self] download ""]
 
     set ctx [::$package_id context]
-    set revision_id [$ctx query_parameter revision_id]
+    set revision_id [$ctx query_parameter revision_id:intger]
     set query [expr {$revision_id ne "" ? "revision_id=$revision_id" : ""}]
     set page_link [:pretty_link -download true -query $query]
     if {[$ctx query_parameter html-content] ne ""} {