--- a/DebugView.st	Wed Aug 25 14:24:58 1999 +0200
+++ b/DebugView.st	Wed Aug 25 16:03:47 1999 +0200
@@ -97,6 +97,16 @@
 
 !DebugView class methodsFor:'instance creation'!
 
+enter:aContext withMessage:aString 
+    "enter a debugger"
+
+    ^ self
+        enter:aContext 
+        withMessage:aString 
+        mayProceed:true
+
+!
+
 enter:aContext withMessage:aString mayProceed:mayProceed
     "enter a debugger; if this is a recursive invocation, enter
      a MiniDebugger instead.
@@ -3981,6 +3991,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.241 1999-08-23 17:59:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.242 1999-08-25 14:03:47 cg Exp $'
 ! !
 DebugView initialize!