Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	13 Sep 2022 12:34:59 -0000	1.26.2.2
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	20 Apr 2023 15:36:09 -0000	1.26.2.3
@@ -271,10 +271,8 @@
 } {
     if { [llength $args] } {
         return [join $args "-"]
-    } elseif { ! [catch {set uuid [exec uuidgen]}] } {
-        return $uuid
     } else {
-        return "[clock seconds]-[expr round([ns_rand]*100000)]"
+        return [ns_uuid]
     }
 }
 
Index: openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl,v
diff -u -r1.6.2.5 -r1.6.2.6
--- openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl	20 Apr 2023 14:22:14 -0000	1.6.2.5
+++ openacs-4/packages/assessment/tcl/test/as-assessment-procs.tcl	20 Apr 2023 15:36:09 -0000	1.6.2.6
@@ -9,20 +9,6 @@
     @cvs-id $Id$
 }
 
-aa_register_case -cats {
-    smoke production_safe
-} -procs {
-    util::which
-} assessment_exec_dependencies {
-    Test external command dependencies for this package.
-} {
-    foreach cmd [list \
-                     [::util::which uuidgen] \
-                    ] {
-        aa_true "'$cmd' is executable" [file executable $cmd]
-    }
-}
-
 aa_register_init_class mount_assessment {
     Mount assessment package
 } {