--- a/MIMETypes.st	Fri Sep 14 17:06:30 2018 +0200
+++ b/MIMETypes.st	Tue Sep 18 21:10:29 2018 +0200
@@ -670,10 +670,12 @@
         ('pyc' 'pyo' )               'application/x-python-compiled-bytecode'
         'pyd'                        'application/x-python-compiled-code'
         'whl'                        'application/x-python-wheel-package'
+        'cbl'                        'application/x-cobol-source'
     )
 
     "Modified: / 23-06-2017 / 13:34:37 / cg"
     "Modified (comment): / 01-03-2018 / 19:07:43 / mawalch"
+    "Modified: / 18-09-2018 / 21:07:27 / Claus Gittinger"
 !
 
 applicationTextTypeList
@@ -1036,6 +1038,7 @@
      MIMETypes mimeTypeForFilename:'foo.txt'
      MIMETypes mimeTypeForFilename:'foo.pkg'
      MIMETypes mimeTypeForFilename:'foo.sm'
+     MIMETypes mimeTypeForFilename:'foo.cbl'
      MIMETypes mimeTypeForFilename:'/Users/cg/work/stx/goodies/bitmaps/tiffimages/moreSamples/multi-channel.ome.tif'
      MIMETypes mimeTypeForFilename:'multi-channel.ome.tif'
      MIMETypes mimeTypeForFilename:'multi-channel.tif'
@@ -1044,6 +1047,7 @@
     "Modified (format): / 27-06-2017 / 16:25:40 / stefan"
     "Modified: / 27-08-2017 / 16:35:37 / cg"
     "Modified (comment): / 01-03-2018 / 18:52:25 / mawalch"
+    "Modified (comment): / 18-09-2018 / 21:10:13 / Claus Gittinger"
 !
 
 mimeTypeForFilename:filename put:mimeType