--- a/DebugView.st	Wed Oct 10 11:44:58 2001 +0200
+++ b/DebugView.st	Wed Oct 10 17:25:46 2001 +0200
@@ -3014,17 +3014,8 @@
 
     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'
-        ]
-    ].
+    selector := actualContext selector.
+    proto := Method methodDefinitionTemplateForSelector:selector.
 
     self 
         codeAccept:('%1\    self halt:''%2 is not yet implemented''.' bindWith:proto with:selector) withCRs
@@ -4995,6 +4986,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.285 2001-10-08 15:18:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.286 2001-10-10 15:25:46 cg Exp $'
 ! !
 DebugView initialize!