--- a/TabListEditor.st	Sun Sep 08 14:38:43 2013 +0200
+++ b/TabListEditor.st	Mon Sep 16 10:55:42 2013 +0200
@@ -1625,7 +1625,7 @@
 doSave
     "generate code for class and instance"
 
-    |cls code spec category mthd list|
+    |cls code spec category package mthd list|
 
     (specClass notNil and:[specSelector notNil])
     ifFalse:
@@ -1650,6 +1650,7 @@
 
     (mthd := cls class compiledMethodAt:specSelector) notNil ifTrue:[
         category := mthd category.
+        package := mthd package.
     ].
 
     code := Character excla asString 
@@ -1675,13 +1676,17 @@
             , '\'.
 
     code := code withCRs.
-    (ReadStream on:code) fileIn.
+    Class packageQuerySignal 
+        answer:package
+        do:[
+            (ReadStream on:code) fileIn.
 
-    (cls canUnderstand:specSelector) ifFalse:[
-        (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[
-            self doGenerateAspectMethod
-        ]
-    ].
+            (cls canUnderstand:specSelector) ifFalse:[
+                (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[
+                    self doGenerateAspectMethod
+                ]
+            ].
+        ].
 
     self addHistoryEntryForClass:cls selector:specSelector.
     self clearModified.