--- a/SmalltalkChunkFileSourceWriter.st	Thu May 14 12:06:39 2009 +0200
+++ b/SmalltalkChunkFileSourceWriter.st	Thu May 14 14:29:31 2009 +0200
@@ -312,7 +312,13 @@
                         wanted := true
                     ]
                 ].
-                wanted ifTrue:[interestingMethods add:aMethod].
+                wanted ifTrue:[
+                    aMethod selector isSymbol ifTrue:[
+                        interestingMethods add:aMethod
+                    ] ifFalse:[
+                        Transcript showCR:'skipping non-symbol method ',aMethod selector.
+                    ].
+                ].
             ]
         ]
     ].
@@ -383,5 +389,5 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.6 2009-05-14 10:03:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.7 2009-05-14 12:29:31 cg Exp $'
 ! !