From f720302e253afdfea80d451cff91d8341826cfcb Mon Sep 17 00:00:00 2001
From: Paul Kimpel <paul.kimpel@digm.com>
Date: Sat, 26 Jul 2014 00:14:50 +0000
Subject: [PATCH] Commit debugging patches to B6500 ESPOL compiler as of
 2014-07-25.

---
 source/B65ESPOL/SOURCE.alg_m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/B65ESPOL/SOURCE.alg_m b/source/B65ESPOL/SOURCE.alg_m
index fce38b1..9b23a6b 100644
--- a/source/B65ESPOL/SOURCE.alg_m
+++ b/source/B65ESPOL/SOURCE.alg_m
@@ -3807,7 +3807,7 @@ COMMENT GOBBLES UP AN ITEM REFERENCE AND LEAVES A THING LOOKING LIKE AN 57268000
                 QUEUEINFO;   % FIRST WORD OF QUEUE OR QUEUE ARRAY INFO  57274000          
         REAL GT1;            % HOLDS CLASS OF ITEM                      57274500          
         LABEL   ON,QUIT,FINI;                                           57275000          
-           INDEX~(ITEMINFO+TAKE(ELBAT[I])).QINDEXF;                     57276000          
+           INDEX~(ITEMINFO~TAKE(ELBAT[I])).QINDEXF;                     57276000          
            N     ~  ITEMINFO.LINK;                                      57277000          
            QUEUECLASS~(QUEUEINFO~TAKE(IF(GT1~ ITEMINFO.CLASS)           57278000          
               >EVENTARRAYID OR GT1<BOOARRAYID THEN N                    57279000