--- a/MiniDebugger.st	Thu Aug 05 12:22:57 1999 +0200
+++ b/MiniDebugger.st	Thu Aug 05 12:38:39 1999 +0200
@@ -48,7 +48,7 @@
 
 !MiniDebugger class methodsFor:'instance creation'!
 
-enterWithMessage:aString mayProceed:mayProceed
+enter:aContext withMessage:aString mayProceed:mayProceed
     "enter a miniDebugger"
 
     |active|
@@ -90,6 +90,14 @@
     "Modified: / 19.5.1999 / 18:14:33 / cg"
 !
 
+enterWithMessage:aString mayProceed:mayProceed
+    "enter a miniDebugger"
+
+    self enter:thisContext sender withMessage:aString mayProceed:mayProceed
+
+    "Modified: / 19.5.1999 / 18:14:33 / cg"
+!
+
 new
     "redefined to make certain that there is only one miniDebugger
      in the system"
@@ -678,5 +686,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.44 1999-08-04 15:08:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.45 1999-08-05 10:38:39 cg Exp $'
 ! !