--- a/MIMETypes.st	Fri Jan 12 22:10:51 2018 +0100
+++ b/MIMETypes.st	Fri Jan 12 22:10:59 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG 
 	      All Rights Reserved
@@ -204,6 +206,10 @@
         put:#('//' ('/*' '*/')).          
 
     TypeToCommentStringMapping 
+        at:'application/x-scheme-source'
+        put:#(';' ('#| ' ' |#')).           "/ ';' for EOL comments only
+
+    TypeToCommentStringMapping 
         at:'application/x-lisp-source'
         put:#(';' (nil nil)).           "/ ';' for EOL comments only
 
@@ -297,6 +303,7 @@
     TypeToInfoMapping at:'application/x-java-source' put:'Java source'.
     TypeToInfoMapping at:'application/x-javascript' put:'JavaScript source'.
     TypeToInfoMapping at:'application/x-lisp-source' put:'Lisp source'.
+    TypeToInfoMapping at:'application/x-scheme-source' put:'Scheme source'.
     TypeToInfoMapping at:'application/x-python-source' put:'Python source'.
 
     TypeToInfoMapping at:'application/x-make' put:'make rules'.
@@ -554,6 +561,7 @@
     spec at:#ignore put:#( $" ).
     spec at:#eolComment put:';'.
     TypeToParenthesisSpecMapping at:'application/x-lisp-source' put:spec.
+    TypeToParenthesisSpecMapping at:'application/x-scheme-source' put:spec.
 
     "Created: / 10-04-2007 / 15:16:37 / cg"
 ! !
@@ -636,8 +644,10 @@
         'bat'                        'application/x-batch-script'
         ('asn1' 'x409' 'gdmo' 'gdm') 'application/x-asn1-source'
 
-        ('lisp' 'lsp' 'scm' 'ss' 
-         'arc' 'cl' 'brg')           'application/x-lisp-source'
+        ('scm' 'ss' 
+         'arc' 'brg' 'rkt')          'application/x-scheme-source'
+
+        ('lisp' 'lsp' 'cl' )         'application/x-lisp-source'
          
         'py'                         'application/x-python-source'
         ('pyc' 'pyo' )               'application/x-python-compiled-bytecode'