Index: openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/Attic/proctoring-upload.tcl,v
diff -u -N -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl	30 Nov 2021 09:45:20 -0000	1.1.2.9
+++ openacs-4/packages/proctoring-support/lib/proctoring-upload.tcl	20 Jan 2022 14:34:36 -0000	1.1.2.10
@@ -98,7 +98,16 @@
                 }
             }]
 
-            set message [::ws::build_msg $message]
+            # Transitional code for NaviServer versions that do not
+            # implement the wsencode subcommand. ::ws::build_msg would
+            # return a warning on those versions, so we first try the
+            # more modern idiom and fallback on the old api.
+            try {
+                set message [ns_connchan wsencode \
+                                 -opcode text $message]
+            } on error {errmsg} {
+                set message [::ws::build_msg $message]
+            }
 
             set chat proctoring-${object_id}
             #ns_log warning "Sending to chat $chat"