--- a/Launcher.st	Thu Oct 31 14:58:47 1996 +0100
+++ b/Launcher.st	Thu Oct 31 15:22:24 1996 +0100
@@ -445,16 +445,17 @@
                     allModules := allModules select:[:i |
                         |wantToSee|
 
-                        wantToSee := (i at:#dynamic).
+                        wantToSee := i dynamic.
                         showBuiltIn value ifTrue:[
                             wantToSee := wantToSee not
                         ].
                         wantToSee
                     ]
                 ].
+
                 "/ sorting by reverse id brings newest ones to the top (a side effect)
-                allModules sort:[:a :b | (a at:#id) > (b at:#id)].
-                moduleNames := allModules collect:[:entry | (entry at:#name)].
+                allModules sort:[:a :b | (a id) > (b id)].
+                moduleNames := allModules collect:[:entry | entry name].
                 l := l , moduleNames.
                 handles := handles , allModules.
             ].
@@ -577,7 +578,7 @@
 
                 "/ fill bottom list with class-info
 
-                classNames := (info at:#classNames) asSortedCollection.
+                classNames := info classNames asSortedCollection.
                 classNames := classNames collect:[:cName |
                                 |cls entry rev listEntry|
 
@@ -608,7 +609,7 @@
                                 listEntry
                               ].
                 list2 list:classNames.
-                (info at:#dynamic) ifTrue:[
+                info dynamic ifTrue:[
                     unloadButton enable.
                 ] ifFalse:[
                     unloadButton disable.
@@ -689,7 +690,7 @@
 
                 ] ifFalse:[
                     "/ selected a package
-                    pathName := (info at:#pathName).
+                    pathName := info pathName.
                 ].
                 ObjectFileLoader unloadObjectFile:pathName.
                 moduleListUpdater value.
@@ -714,7 +715,7 @@
     box destroy.
 
     "Modified: 17.9.1995 / 16:47:50 / claus"
-    "Modified: 30.9.1996 / 21:39:17 / cg"
+    "Modified: 31.10.1996 / 14:02:11 / cg"
 !
 
 snapshot
@@ -3714,5 +3715,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.206 1996-10-28 13:52:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.207 1996-10-31 14:22:24 cg Exp $'
 ! !