--- a/Launcher.st	Thu Jan 29 20:07:09 1998 +0100
+++ b/Launcher.st	Thu Jan 29 21:44:45 1998 +0100
@@ -134,7 +134,7 @@
 
 !Launcher class methodsFor:'accessing'!
 
-OpenLaunchers
+openLaunchers
     "return all opened launchers"
 
     ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
@@ -4980,5 +4980,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.312 1998-01-26 18:56:21 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.313 1998-01-29 20:43:55 cg Exp $'
 ! !

--- a/NewLauncher.st	Thu Jan 29 20:07:09 1998 +0100
+++ b/NewLauncher.st	Thu Jan 29 21:44:45 1998 +0100
@@ -59,7 +59,7 @@
 
 !NewLauncher class methodsFor:'accessing'!
 
-OpenLaunchers
+openLaunchers
 
     ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
 !
@@ -6734,7 +6734,7 @@
     self setupTranscript; updateInfo.
     Project notNil ifTrue: [Project addDependent:self].
     self builder window windowGroup process priority:(Processor userSchedulingPriority + 1).
-    self class OpenLaunchers add: self.
+    OpenLaunchers add: self.
 
 !
 
@@ -6778,9 +6778,9 @@
         ].
         launcher notNil ifTrue:[
             launcher window graphicsDevice == device ifTrue:[
-                self class OpenLaunchers removeIdentical:launcher ifAbsent:nil.
+                OpenLaunchers removeIdentical:launcher ifAbsent:nil.
                 (oldLauncher := Smalltalk at: #Launcher) notNil
-                    ifTrue: [oldLauncher OpenLaunchers removeIdentical:launcher ifAbsent:nil].
+                    ifTrue: [oldLauncher openLaunchers removeIdentical:launcher ifAbsent:nil].
                 launcher close
             ]
         ]
@@ -6813,5 +6813,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.15 1998-01-29 19:07:09 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.16 1998-01-29 20:44:45 cg Exp $'
 ! !