Fixed "multi-coloured borders" bug: a single TEQ statement had been commented...

Fixed "multi-coloured borders" bug: a single TEQ statement had been commented out when it should have been optioned out. Not my fault!!

s/Wimp10

@@ -861,7 +861,9 @@ maketoollist ENTRY "R1-R11"
         ADRL    R14,tool_plotparams
         STMIA   R14,{R0-R3}             ; setup a parameter block
 ;
-;        TEQ     R3,#0                  ; with fastborders
+      [ :LNOT: fastborders
+        TEQ     R3,#0                   ; not needed with fastborders set
+      ]
         MOVNE   R0,#0
         STRNE   R0,pixtable_at
         STRNE   R0,pixtable_size        ; flag as no active pixtable ('cos we stole it!)
@@ -2916,16 +2918,17 @@ trace_nl ROUT
         ]
 
 Tool_SpriteOp
-        Push    "R1,lr"
- [ :LNOT: TrueIcon3
-; This won't have worked anyway, because bit 9 of R0 is always set. BJGA 7/5/98
+        Push    "R0,R1,lr"
+      [ false ; fastborders
+; This reason code is only generated when fastborders is active - but this comparison
+; is flawed anyway, because bit 9 of R0 is always set at this stage!!  BJGA May 1998
         TEQ     R0,#SpriteReason_PutSpriteUserCoords
         BEQ     %FT05                    ; no trans table needed if plotting
+      ]
         LDR     R1,tool_list
         TEQ     R1,#0
         BLEQ    recache_tools_trans
 05
- ]
         LDR     R1,tool_area             ; R1 is quite often wrong!
 	BIC	R2,R2,#1
 
@@ -2935,7 +2938,7 @@ Tool_SpriteOp
         ADREQL  R1,tools_area
         LDREQ   R1,[R1]
         STREQ   R1,tool_list
-        Pull    "R1,PC",,^
+        Pull    "R0,R1,PC",,^
 
 
 recache_tools_trans