From 6d9c3f496a7ebab0d2ed54cb46a0af9249f93ade Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Thu, 14 Mar 2002 00:12:43 +0000
Subject: [PATCH] Minor correction to recent post.

---
 harbour/source/compiler/harbour.slx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/compiler/harbour.slx b/harbour/source/compiler/harbour.slx
index 930e443099..3a843f5476 100644
--- a/harbour/source/compiler/harbour.slx
+++ b/harbour/source/compiler/harbour.slx
@@ -485,7 +485,7 @@ LANGUAGE_RULES_ARE {
 
 #undef STREAM_APPEND
    #define STREAM_APPEND(x) \
-      if( iPairLen == 0 && sStart[1] == '[' ) { sPair[ iPairLen++ ] = sStart[1]; } \
+      if( iPairLen == 0 && sStart[0] == '[' && sStart[1] ) { sPair[ iPairLen++ ] = sStart[1]; } \
       if( x == ']' && iCloseSquare == 0 ) { iCloseSquare = iPairLen + 1; } sPair[ iPairLen++ ] = x;
 
 #undef STREAM_OPEN