diff -r e7586b506654 -r b340a5b9ff78 TabListEditor.st
--- a/TabListEditor.st	Wed Jun 16 10:47:11 2004 +0200
+++ b/TabListEditor.st	Sat Jun 19 14:54:05 2004 +0200
@@ -1621,7 +1621,7 @@
             , specSelector , '\'
             , (self class codeGenerationComment replChar:$!! withString:'!!!!')
             , '\\    "\'
-            , '     TabListEditor new openOnClass:' , cls name , ' andSelector:#' , specSelector , '\'
+            , '     TabListEditor new openOnClass: self andSelector:#' , specSelector , '\'
             , '    "\'.
 
     code := code