Index: openacs-4/packages/lorsm/www/delivery-scorm/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-scorm/menu.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/delivery-scorm/menu.tcl	14 Feb 2009 22:33:21 -0000	1.2
+++ openacs-4/packages/lorsm/www/delivery-scorm/menu.tcl	12 Jun 2018 09:29:27 -0000	1.3
@@ -42,9 +42,7 @@
 	set level [lindex $one 0]
 	set item_id [lindex $one 1]
 	set title [lindex $one 2]
-	
-	set title [fs::remove_special_file_system_characters -string $title]
-	regsub {'} $title {\'} title
+	set file_upload_name [ad_sanitize_filename -tolower $title]
 	set title [string map { \{ \\{ \} \\} } $title ]
 
 	upvar #$adp_level man_id man_id