diff -r e993adca5ecf -r 118c4294d9cd MethodFinderWindow.st
--- a/MethodFinderWindow.st	Wed Aug 24 12:26:24 2011 +0200
+++ b/MethodFinderWindow.st	Mon Sep 26 12:50:10 2011 +0200
@@ -625,6 +625,7 @@
                                 ^self
                                                               ].  
 "the following then replaces data1 and data2 created by the method finder to the appropriate arguments"
+
 resultArray keysAndValuesDo:[:key :value |   | newValue | 
       newValue:= value replString: 'data1' withString:(tempReceiver key).
 (tempArguments size) >= 1 ifTrue:[
@@ -636,7 +637,7 @@
 (tempArguments size) > 2 ifTrue:[
       newValue:= newValue replString: 'data4' withString:(tempArguments keyAt:3).].
 
-(tempArguments size) > 3 ifTrue:[ self halt. ].
+(tempArguments size) > 3 ifTrue:[ self halt:'unimplemented'. ].
 
 
                         "    newValue:= value replString: 'data3' withString:(self messageAnswer key). " 
@@ -652,7 +653,7 @@
 resultSelectors:= mf selectors.   "used to find implementors so we do not have to "
 receiver:=tempReceiver            "search the string for the selector found. Stored as an ordered collection"
 
-    "Modified: / 13.11.2001 / 18:52:35 / cg"
+    "Modified: / 26-09-2011 / 12:42:28 / cg"
 !
 
 selectedClassOfResultHolderChanged