Index: openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/Attic/proctoring-procs.tcl,v
diff -u -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	16 Jun 2021 11:26:55 -0000	1.1.2.13
+++ openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	9 Feb 2022 14:50:42 -0000	1.1.2.14
@@ -242,11 +242,12 @@
     # Make sure the checksum of current file is not the same as the
     # one we have in the cache.
     set checksum [ns_md file -digest sha1 $file]
-    set already_received_p false
-    if {[ns_cache_get $cache_name ${object_id}_${user_id} cached_checksum]} {
-        if {$checksum eq $cached_checksum} {
-            set already_received_p true
-        }
+    if {[ns_cache_get $cache_name ${object_id}_${user_id} cached_checksum] &&
+        $checksum eq $cached_checksum
+    } {
+        set already_received_p true
+    } else {
+        set already_received_p false
     }
 
     # Update in any case the cache to renew the expiration