--- a/MIMETypeIconLibrary.st	Sun Nov 23 16:52:58 2014 +0100
+++ b/MIMETypeIconLibrary.st	Sun Nov 23 17:17:57 2014 +0100
@@ -135,6 +135,7 @@
         'application/x-cpp-source'                      cPlusPlusSource
         'application/x-javascript'                      text
         'application/x-java-source'                     javaSource
+        'application/x-lisp-source'                     lispSource
 
         'application/x-sh'                              text
         'application/x-csh'                             text
@@ -566,6 +567,12 @@
     ^ ToolbarIconLibrary fileTypeJavaSourceIcon
 !
 
+lispSource
+    <resource: #programImage>
+
+    ^ ToolbarIconLibrary fileTypeLispSourceIcon
+!
+
 smalltalkSource
     <resource: #programImage>
 
@@ -599,11 +606,11 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.24 2014-11-23 15:52:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.25 2014-11-23 16:17:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.24 2014-11-23 15:52:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.25 2014-11-23 16:17:57 cg Exp $'
 ! !