--- a/MIMETypes.st	Tue Dec 11 15:37:03 2012 +0100
+++ b/MIMETypes.st	Fri Dec 14 17:19:15 2012 +0100
@@ -387,8 +387,8 @@
     "/ Lisp
     
     spec := IdentityDictionary new.
-    spec at:#open put:#( $( ).
-    spec at:#close put:#( $) ).
+    spec at:#open put:#( $( $[ ).
+    spec at:#close put:#( $) $] ).
     spec at:#ignore put:#( $" ).
     spec at:#eolComment put:';'.
     TypeToParenthesisSpecMapping at:'application/x-lisp-source' put:spec.
@@ -1339,11 +1339,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.124 2012-08-21 18:56:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.125 2012-12-14 16:19:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.124 2012-08-21 18:56:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.125 2012-12-14 16:19:15 cg Exp $'
 ! !
 
 MIMETypes initialize!