--- a/Parser.st	Thu Oct 31 16:15:40 2002 +0100
+++ b/Parser.st	Thu Oct 31 16:17:12 2002 +0100
@@ -2710,12 +2710,8 @@
     [
         "/ search this names position in the declaration part ...
         pos := source indexOfSubCollection:varName startingAt:startSearch ifAbsent:0.
-        pos == 0 ifTrue:[
-            self halt.
-            ^ self.
-        ].
-        pos >= defEndPos ifTrue:[
-            self halt.
+        (pos == 0 or:[pos >= defEndPos]) ifTrue:[
+            self error:'should not happen' mayProceed:true.
             ^ self.
         ].
 
@@ -4787,7 +4783,7 @@
             ].
             argList add:arg.
         ].
-        self halt.
+        self halt:'not yet implemented'.
     ].
     ^ receiver
 
@@ -5254,7 +5250,7 @@
         self parseError:'must be representable as a literal (for now)' position:pos.
         ^ #Error
     ].
-self halt.
+self halt:'unimplemented'.
 "/    "/ make it an array creation expression ...
 "/    expr := MessageNode 
 "/            receiver:(VariableNode globalNamed:#Array)
@@ -6850,7 +6846,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.351 2002-10-31 15:15:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.352 2002-10-31 15:17:12 cg Exp $'
 ! !
 
 Parser initialize!