--- ../browser/PCode.st	Sat Jan  4 14:25:27 2003
+++ PCode.st	Sat May 10 13:35:09 2003
@@ -342,24 +342,27 @@
 	    [widget 
 		highlightAs: #unaryMsg
 		from: aMethodNode selectorParts first start
-		to: aMethodNode selectorParts first stop.
-	    ^self].
+		to: aMethodNode selectorParts first stop ].
+
     aMethodNode isBinary 
 	ifTrue: 
 	    [widget 
 		highlightAs: #binaryMsg
 		from: aMethodNode selectorParts first start
 		to: aMethodNode selectorParts first stop.
-	    self highlightNewVariable: aMethodNode arguments first as: #argument.
-	    ^self].
-    aMethodNode selectorParts with: aMethodNode arguments
-	do: 
-	    [:sel :arg | 
-	    widget 
-		highlightAs: #binaryMsg
-		from: sel start
-		to: sel stop.
-	    self highlightNewVariable: arg as: #argument].
+	    self highlightNewVariable: aMethodNode arguments first as: #argument ].
+    
+    aMethodNode isKeyword
+    	ifTrue:
+	    [aMethodNode selectorParts with: aMethodNode arguments
+		do: 
+	    	    [:sel :arg | 
+	    		widget 
+			highlightAs: #binaryMsg
+			from: sel start
+			to: sel stop.
+	   		 self highlightNewVariable: arg as: #argument] ].
+
     self visitNode: aMethodNode body!
 
 acceptOptimizedNode: aBlockNode