--- a/VSEFileSourceWriter.st	Fri Feb 13 03:17:35 2015 +0100
+++ b/VSEFileSourceWriter.st	Fri Feb 13 03:22:54 2015 +0100
@@ -121,7 +121,7 @@
     "for classes that do not exist in VSE"
 
     ^ Set new
-        add:#Filename;
+        add:Filename;
         yourself
 
     "
@@ -163,14 +163,14 @@
 
     methodsToFileOut := OrderedCollection new.
     Smalltalk allClassesDo:[:eachClass |
-        (self class extensionClassesSkipped includes:eachClass) ifTrue:[
-            Transcript showCR:'skipped extension for ',eachClass name
-        ] ifFalse:[
-            eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-                |mPckg|
+        eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+            |mPckg|
 
-                mPckg := mthd package.
-                (mPckg = packageID and:[mPckg ~= eachClass package]) ifTrue:[
+            mPckg := mthd package.
+            (mPckg = packageID and:[mPckg ~= eachClass package]) ifTrue:[
+                (self class extensionClassesSkipped includes:eachClass) ifTrue:[
+                    Transcript showCR:'skipped extension: ',mthd whoString.
+                ] ifFalse:[
                     methodsToFileOut add:mthd.
                 ]
             ]
@@ -560,10 +560,10 @@
 !VSEFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.17 2015-02-13 02:17:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.18 2015-02-13 02:22:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.17 2015-02-13 02:17:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.18 2015-02-13 02:22:54 cg Exp $'
 ! !