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 -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	11 Aug 2020 07:14:18 -0000	1.1.2.2
+++ openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	13 Aug 2020 17:04:30 -0000	1.1.2.3
@@ -14,6 +14,7 @@
     if {[info exists user_id]} {
         append folder /$user_id
     }
+    file mkdir $folder
     return $folder
 }
 
Index: openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/test/Attic/proctoring-test-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl	11 Aug 2020 07:57:36 -0000	1.1.2.1
+++ openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl	13 Aug 2020 17:04:30 -0000	1.1.2.2
@@ -11,7 +11,11 @@
         set paths [list]
         for {set object_id 0} {$object_id < 5} {incr object_id} {
             for {set user_id 0} {$user_id < 5} {incr user_id} {
-                lappend paths [::proctoring::folder -object_id $object_id -user_id $user_id]/content
+                set path [::proctoring::folder -object_id $object_id -user_id $user_id]
+                aa_log "Path is $path"
+                lappend paths $path
+                aa_log "...deleted."
+                file delete -- $path
             }
         }
         aa_true "Unique paths were generated" {[llength [lsort -unique $paths]] == 25}