--- a/DebugView.st	Wed Jul 03 14:59:46 1996 +0200
+++ b/DebugView.st	Wed Jul 03 15:48:33 1996 +0200
@@ -283,7 +283,7 @@
     "enter the debugger - get and display the context, then start an
      exclusive event loop on top of eveything else"
 
-    |con selection m idx retval s|
+    |con selection m idx retval|
 
     busy := true.
     inspecting := false.
@@ -519,12 +519,14 @@
 "/ ... leading to a popup warning from the codeView
 "/
 "/                codeView hasSelection ifTrue:[
-"/                    s := codeView selection asString.
 "/                    Object errorSignal handle:[:ex |
 "/                        'DEBUGGER: error - returning nil' printNL.
 "/                        retval := nil.
 "/                        ex return
 "/                    ] do:[
+"/			  |s|
+"/
+"/                        s := codeView selection asString.
 "/                        retval := codeView doItAction value:s.
 "/                    ].
 "/                ].
@@ -2606,5 +2608,5 @@
 !DebugView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.95 1996-07-03 09:04:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.96 1996-07-03 13:48:33 cg Exp $'
 ! !