--- a/NewLauncher.st	Thu Jul 30 18:17:23 1998 +0200
+++ b/NewLauncher.st	Thu Jul 30 21:48:55 1998 +0200
@@ -2427,13 +2427,15 @@
     "increase my priority"
 
     self builder window windowGroup process priority:(Processor userSchedulingPriority + 1).
-    UserAddedTools associationsDo: 
-    [:userTool| 
-        self addUserTool: userTool key 
-            action: (userTool value at: 1)  
-            in:     (userTool value at: 2) 
-            icon:   (userTool value at: 3)
-            space:  (userTool value at: 4)
+    UserAddedTools notNil ifTrue:[
+        UserAddedTools associationsDo: 
+        [:userTool| 
+            self addUserTool: userTool key 
+                action: (userTool value at: 1)  
+                in:     (userTool value at: 2) 
+                icon:   (userTool value at: 3)
+                space:  (userTool value at: 4)
+        ].
     ].
     super postOpenWith:aBuilder.
     self startClockOnTimedBlock: 
@@ -2459,6 +2461,7 @@
         Processor addTimedBlock: timeBlock afterSeconds: 1
     ].
 
+    "Modified: / 30.7.1998 / 21:46:43 / cg"
 !
 
 reOpen
@@ -5539,5 +5542,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.85 1998-07-30 15:04:36 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.86 1998-07-30 19:48:55 cg Exp $'
 ! !