--- a/VSEFileSourceWriter.st	Mon Mar 09 12:45:56 2015 +0100
+++ b/VSEFileSourceWriter.st	Mon Mar 09 15:08:41 2015 +0100
@@ -285,6 +285,7 @@
             'ignoreIn:'
             'codePoint'
             'conform:'
+            'contains:'
             "/ '->'
     )) ifTrue:[
         self error:('please rewrite ',method whoString,' (unimplemented messages). Or proceed') mayProceed:true
@@ -619,10 +620,10 @@
 !VSEFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.26 2015-03-09 11:45:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.27 2015-03-09 14:08:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.26 2015-03-09 11:45:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.27 2015-03-09 14:08:41 cg Exp $'
 ! !