--- a/DebugView.st	Mon Sep 15 23:25:06 1997 +0200
+++ b/DebugView.st	Tue Sep 16 06:10:00 1997 +0200
@@ -179,7 +179,7 @@
         aDebugger enter:aContext.
     ].
 
-    MessageTracer notNil ifTrue:[
+    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
         breakpointSignal := MessageTracer breakpointSignal.
     ].
     breakpointSignal notNil ifTrue:[
@@ -495,7 +495,8 @@
          ok, got the raise - if its a BreakPoint, look for the sender
         "
         (MessageTracer notNil
-	 and:[prev receiver == MessageTracer breakpointSignal]) ifTrue:[
+	 and:[MessageTracer isLoaded
+	 and:[prev receiver == MessageTracer breakpointSignal]]) ifTrue:[
             offset := offset + 1
         ].
     ].
@@ -2417,7 +2418,9 @@
 removeAllBreakpoints
     "remove all trace & breakpoints - if any"
 
-    MessageTracer unwrapAllMethods
+    (MessagerTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
+        MessageTracer unwrapAllMethods
+    ]
 !
 
 removeBreakpoint
@@ -2428,6 +2431,9 @@
     selectedContext isNil ifTrue:[
 	^ self showError:'** select a context first **'
     ].
+    (MessagerTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
+	^ self
+    ].
 
     implementorClass := selectedContext methodClass. 
     implementorClass notNil ifTrue:[
@@ -3083,7 +3089,8 @@
                 "/ ignore recursive breakpoints
                 "/
                 (MessageTracer notNil
-		and:[signal == MessageTracer breakpointSignal]) ifTrue:[
+		and:[MessageTracer isLoaded
+		and:[signal == MessageTracer breakpointSignal]]) ifTrue:[
                     'DebugView [info]: breakpoint in debugger ignored' infoPrintCR.
                     ex proceed
                 ].
@@ -3092,7 +3099,8 @@
                 ].
                 signal == Exception recursiveExceptionSignal ifTrue:[
 		    (MessageTracer notNil
-		    and:[ex parameter signal == MessageTracer breakpointSignal])
+		    and:[MessageTracer isLoaded
+		    and:[ex parameter signal == MessageTracer breakpointSignal]])
 		    ifTrue:[
                         'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
                         ex proceed.
@@ -3266,7 +3274,7 @@
 
     |breakPointSignal|
 
-    MessageTracer notNil ifTrue:[
+    (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
         breakPointSignal := MessageTracer breakpointSignal.
     ].
     breakPointSignal notNil ifTrue:[
@@ -3610,6 +3618,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.174 1997-09-08 19:16:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.175 1997-09-16 04:09:54 cg Exp $'
 ! !
 DebugView initialize!

--- a/Launcher.st	Mon Sep 15 23:25:06 1997 +0200
+++ b/Launcher.st	Tue Sep 16 06:10:00 1997 +0200
@@ -2900,10 +2900,13 @@
         self warn:'no styles found (missing ''resources'' directory)'.
         ^ self
     ].
-    dir := FileDirectory directoryNamed:resourceDir.
+    dir := resourceDir asFilename directoryContents.
 
     listOfStyles := dir select:[:aFileName | aFileName asFilename hasSuffix:'style'].
     listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name].
+    Filename isCaseSensitive ifFalse:[
+	listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase].
+    ].
     listOfStyles sort.
 
 "/ old code: used a standard ListSelectionBox
@@ -4827,5 +4830,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.293 1997-09-15 21:25:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.294 1997-09-16 04:10:00 cg Exp $'
 ! !