diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 74ee68b97b..c7447ae4ae 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-06-30 16:36 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/hbtip/tests/tiptest.prg
+     ! Remove strings as arrays access. Thanks Lorenzo.
+
 2008-06-30 14:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * include/hbextern.ch
      + New inet functions added.
diff --git a/harbour/contrib/hbtip/tests/tiptest.prg b/harbour/contrib/hbtip/tests/tiptest.prg
index 18f83af08c..06ed52aa2f 100644
--- a/harbour/contrib/hbtip/tests/tiptest.prg
+++ b/harbour/contrib/hbtip/tests/tiptest.prg
@@ -102,7 +102,7 @@ PROCEDURE MAIN( cUrl, cFile )
          @5,5 SAY "Connection status: " + oClient:cReply
       ENDIF
 
-      IF .not. Empty( cFile ) .and. cFile[1] == '+'
+      IF .not. Empty( cFile ) .and. Left( cFile, 1 ) == '+'
          cFile := Substr( cFile, 2 )
          bWrite := .T.
       ENDIF