--- a/TabListEditor.st	Tue Jan 28 21:58:50 2014 +0100
+++ b/TabListEditor.st	Tue Jan 28 21:59:00 2014 +0100
@@ -1578,9 +1578,11 @@
             '    ^ list\' ,
             '!! !!\\'.
 
-    (ReadStream on:(code withCRs)) fileIn
+    Class packageQuerySignal answer:cls package do:[
+        (ReadStream on:(code withCRs)) fileIn
+    ]
 
-
+    "Modified: / 28-01-2014 / 21:57:09 / cg"
 !
 
 doMoveTabUpOrDown:what
@@ -1679,8 +1681,9 @@
     Class packageQuerySignal 
         answer:package
         do:[
-            (ReadStream on:code) fileIn.
-
+            Class packageQuerySignal answer:cls 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
@@ -1691,6 +1694,8 @@
     self addHistoryEntryForClass:cls selector:specSelector.
     self clearModified.
     hasSaved  := true.
+
+    "Modified: / 28-01-2014 / 21:56:54 / cg"
 !
 
 openDocumentation