Index: openacs-4/packages/lorsm/www/delivery/menu-mk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu-mk.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/lorsm/www/delivery/menu-mk.tcl	28 Apr 2009 15:24:15 -0000	1.9
+++ openacs-4/packages/lorsm/www/delivery/menu-mk.tcl	12 Jun 2018 09:29:27 -0000	1.10
@@ -102,8 +102,7 @@
         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]
 
         # as suggested by Michele Slocovich (michele@sii.it)
         # http://openacs.org/bugtracker/openacs/com/lors/bug?bug%5fnumber=2100
Index: openacs-4/packages/lorsm/www/delivery/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/lorsm/www/delivery/menu.tcl	10 Oct 2009 22:38:10 -0000	1.14
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl	12 Jun 2018 09:29:27 -0000	1.15
@@ -64,8 +64,7 @@
         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]
 
         # as suggested by Michele Slocovich (michele@sii.it)
         # http://openacs.org/bugtracker/openacs/com/lors/bug?bug%5fnumber=2100
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 -N -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
Index: openacs-4/packages/survey-reports/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-reports/www/index.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/survey-reports/www/index.tcl	9 May 2018 15:33:33 -0000	1.4
+++ openacs-4/packages/survey-reports/www/index.tcl	12 Jun 2018 09:29:27 -0000	1.5
@@ -88,7 +88,7 @@
          #I'm being lazy here and not getting the responses at the same time I get all the questions.
          #For now I'm not expecting a preformance issue but this may need to be rewritten at some time.
          #If you ever do rewrite it remember to set unanswered questions to empty string.
-set full_id [fs::remove_special_file_system_characters -string "${section_pretty_id}_${question_pretty_id}"]
+set file_upload_name [ad_sanitize_filename -tolower "${section_pretty_id}_${question_pretty_id}"]
 
 lappend var_names full_name
 lappend var_names $full_id
@@ -176,8 +176,9 @@
     set $full_id $answer
 
 if { [lsearch $question_pretty_id $duplicate_pretty_ids] == -1 } {
-    set short_id [fs::remove_special_file_system_characters -string "$question_pretty_id"]
-        set $short_id $answer
+    set short_id [ad_sanitize_filename -tolower $question_pretty_id]
+
+    set $short_id $answer
     lappend var_names $short_id
 }
 }