--- a/DebugView.st	Mon Oct 08 16:16:22 2001 +0200
+++ b/DebugView.st	Mon Oct 08 17:18:59 2001 +0200
@@ -3010,15 +3010,27 @@
 !
 
 doDefine
-    |sel|
-
-    sel := contextView selection.
+    |selectionIndex selector proto|
+
+    selectionIndex := contextView selection.
+
+    selector := proto := actualContext selector.
+    selector numArgs > 0 ifTrue:[
+        selector isKeyword ifTrue:[
+            proto := String streamContents:[:stream |
+                        selector keywords 
+                            keysAndValuesDo:[:idx :part | stream nextPutAll:(part , 'arg' , idx printString , ' ')].
+                     ].
+        ] ifFalse:[
+            proto := selector , ' arg'
+        ]
+    ].
 
     self 
-        codeAccept:('%1\    self halt:''%1 is not yet implemented''.' bindWith:actualContext selector) withCRs
+        codeAccept:('%1\    self halt:''%2 is not yet implemented''.' bindWith:proto with:selector) withCRs
         unwind:false.
 
-    self doShowSelection:sel.
+    self doShowSelection:selectionIndex.
     self doRestart
 !
 
@@ -4983,6 +4995,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.284 2001-10-08 14:16:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.285 2001-10-08 15:18:59 cg Exp $'
 ! !
 DebugView initialize!