Index: openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl	15 Mar 2022 15:00:33 -0000	1.5.2.3
+++ openacs-4/packages/richtext-ckeditor4/tcl/ckfinder-init.tcl	29 Mar 2023 13:55:07 -0000	1.5.2.4
@@ -65,11 +65,10 @@
 
     if {[llength $complaints] == 0 && $type eq "Images"} {
 
-        set form [ns_getform]
         set d [::richtext::ckeditor4::ckfinder::file_attach \
                    -object_id   $object_id \
-                   -import_file [ns_set get $form upload.tmpfile] \
-                   -mime_type   [ns_set get $form upload.content-type] \
+                   -import_file [ns_queryget upload.tmpfile] \
+                   -mime_type   [ns_queryget upload.content-type] \
                    -user_id     [ad_conn user_id] \
                    -peeraddr    [ad_conn peeraddr] \
                    -package_id  [ad_conn package_id] \
@@ -135,11 +134,10 @@
 
     if {[llength $complaints] == 0 && $type eq "Files"} {
 
-        set form [ns_getform]
         set d [::richtext::ckeditor4::ckfinder::file_attach \
                    -object_id   $object_id \
-                   -import_file [ns_set get $form upload.tmpfile] \
-                   -mime_type   [ns_set get $form upload.content-type] \
+                   -import_file [ns_queryget upload.tmpfile] \
+                   -mime_type   [ns_queryget upload.content-type] \
                    -user_id     [ad_conn user_id] \
                    -peeraddr    [ad_conn peeraddr] \
                    -package_id  [ad_conn package_id] \