diff --git a/harbour/utils/hbdoc/rtf.prg b/harbour/utils/hbdoc/rtf.prg
index 6a1ca45c6f..bcae19438f 100644
--- a/harbour/utils/hbdoc/rtf.prg
+++ b/harbour/utils/hbdoc/rtf.prg
@@ -318,6 +318,8 @@ Local cItem:=' '
 Local nPos:=0
 Local nSize:=Len(aLink)
 
+HB_SYMBOL_UNUSED( lAlink )
+
 if nSize >2
 For nPos:=1 to nSize
     if nPos==nSize
diff --git a/harbour/utils/hbmake/pickarry.prg b/harbour/utils/hbmake/pickarry.prg
index c552763d76..c83f06f81f 100644
--- a/harbour/utils/hbmake/pickarry.prg
+++ b/harbour/utils/hbmake/pickarry.prg
@@ -68,8 +68,6 @@ LOCAL lIsChecked := .f.
 LOCAL aItems     := IN_ARRAY
 LOCAL aTemp
 LOCAL cItem
-LOCAL cItem1
-LOCAL cTemp
 LOCAL cOldColor  := Setcolor()
 
 DEFAULT lAllowAll TO .F.
@@ -100,9 +98,9 @@ DEFAULT lLib to .F.
       FOR EACH cItem IN aDefault
 
          if !lLib
-            x := AScan( IN_ARRAY, { | a, y | SubStr( a, 4, At(' ', alltrim(a) ) - 1 ) == cItem } )
+            x := AScan( IN_ARRAY, { | a | SubStr( a, 4, At(' ', alltrim(a) ) - 1 ) == cItem } )
          else
-            x := AScan( IN_ARRAY, { | a, y | alltrim(cItem) IN a } )
+            x := AScan( IN_ARRAY, { | a | alltrim(cItem) $ a } )
          endif
 
          IF x != 0
@@ -116,9 +114,9 @@ DEFAULT lLib to .F.
             cItem := SubStr( cItem, Rat( '\', cItem ) - 1 )
 
             if !lLib
-               x := AScan( aTemp, { | a, y | SubStr( a, 4, At( ' ', a ) - 1 ) == cItem } )
+               x := AScan( aTemp, { | a | SubStr( a, 4, At( ' ', a ) - 1 ) == cItem } )
             else
-               x := AScan( IN_ARRAY, { | a, y | alltrim(cItem) IN a } )
+               x := AScan( IN_ARRAY, { | a | alltrim(cItem) $ a } )
             endif
 
             IF x != 0